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D01 



SECTION DICTIONARY 



NUMBER 



NAME 



MAXIMUM ORIGIN TYP ADDRESS-MODIFICATION 



01 


CSYSUB 


0001432 


02 


CPATCH 


0000474 


03 


CPATCH1 


0000000 


04 


CPATCH2 


0000000 


05 


CPATCH3 


0000162 


06 


CPATCH7 


0000000 


07 


TFAPCH2 


0000000 


08 


TPATCH 


0000000 
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C01 



0110000 
0110000 
0110000 



VERSION W77D OF SWAP; VERSION 



01 
02 
03 
04 
05 
06 
07 
08 
09 



Of EPL 



OBNAM N033E3I3. OFF. DATABASE 

RELNAM N03ESS 

GETLIB LIBRARY, MEMBER=MOPTBL 

GETLIB LIBRARY, MEMBER*SYSMAC 

GETLIB LIBRARY, MEMBER=SYSSYM 

GETtIB LIBRARY, MEMBER=PATCH2 

FIRSYOPTSS 

VERSION 3ACC, FIELD, ESS2E 

PATCHINIT 



0:40:27 2/06/81 **** 
CSYSUB W77D 



10 N033E3I3.OFF.OPMSC0) DECK 

11 DSOUAL N033E3I3 

12 LISTING N,CRUNCH=Y,SYSOUT=N 

13 tttttHtUMtttttltttltttHttttttt 

H tin 

15 K# UNIX ID ■ N03PAG 

16 ttn 

17 HHttHtttltttlttHHtHIHHHH 

1 8 MMHHHHHtt#n#ttHHH1tHH##H#HtlHMHHHHItHltHnHlt1tMII#H 

19 HHIt 

20 Ptttttt pid date time rel 

21 ntm 

22 ttttttn esysub 1/24/81 18:10:41 7.1.1.1 

23 nnn 

24 tltt«Htltltttttttttttt#tttttttttttttHttt«t(ttttttttltHttHUtttttttHtttttltttttlt 

25 NAME CSYSUB 



0110000 



29 Kit The following 1$ a Hat of the valid eseeta for program CSYSUB 
31 CSYSUB CSECT 



0111432 
0112562 
0114107 
0115073 
0121236 

0116774 

0600000 



34 tttt The following cseeta are necessary for patching 

36 CPATCH CSECT 

37 CPATCH1 CSECT 

38 CPATCH2 CSECT 

39 CPATCH3 CSECT 

40 CPATCH7 CSECT 

42 TFAPCH2 CSECT 
44 TPATCH CSECT 
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P01 



0000000 
0000023 
0000000 
0000020 



0:40:27 2/06/81 **** 
CSYSUB H77D 



01 GETLIB 

02 GETLIB 

03 GETLIB 

04 GETLIB 

05 GETLIB 

06 GETLIB 

07 TOPTTL TEXT 

08 BOTTTL TEXT 
0? PRINT MEMOINIT DELETE=NO 

10 CIPLTRK EQU 

11 S (CIPLTRK) EQU 19 

12 PRIV EQU 

13 S(PRIV) EQU 16 



MEMBER=GPMAC 

MEMBER=CCSYM 

MEMBER=TTYMAC 

MEMBER=TTYSYM 

MEMBER=BSAIMAC 

MEMBER=CTVTAB 

'3A-CC COMMON SYSTEM INTERFACES' 



X-74292 THRU X-74298 



IV-C MAY, 1973' 
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ASSEMBLY PROLOGUE 



EQ1 



0:40:27 2/06/81 **** 
CSYSVB W77D 



01 « THE CSYSUB ASSEMBLY UNIT CONTAINS A COLLECTION OF COMMON SYSTEM 

02 It SUBROUTINES. 

03 n EACH SUBROUTINE PERFORMS AN EXPLICIT FUNCTION AND IN GENERAL DOES NOT HAVE ANY 

04 # RELATIONSHIP TO ANY OTHER SUBROUTINE. THE FUNCTIONS PERFORMED ARE EITHER 

05 It VERY COMMON OR RELATED TO CONTROLLING SYSTEM HARDWARE. THE CRITERIA FOR 

06 » INCLUSION IN THIS ASSEMBLY UNIT IS THAT THE SUBROUTINE WILL 

07 H BE USED BY MORE THAN ONE PROGRAM AND USUALLY BY MANY PROGRAMS. 
06 

09 * EACH SUBROUTINE BEGINS AT THE TOP OF A PAGE WITH DESCRIPTIVE INFORMATION. 

10 U EACH PREAMBLE OF THIS TYPE WILL CONTAIN AT LEAST FOUR SECTIONS ENTITLED 

11 U 'DESCRIPTION, "ENTRY POINT(S),' 'ENTRY CONDITIONS,' AND 'EXIT CONDITIONS.' IN 

12 n SOME CASES, A FIFTH SECTION ENTITLED 'RESTRICTIONS' IS INCLUDED. THE BODY OF 

13 # THE SUBROUTINE THEN FOLLOWS CONTAINING COMMENTS AS NECESSARY TO EXPLAIN THE 
1* U IMPLEMENTATION OF THE FUNCTION. 
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PUBLIC SYMBOLS 



J2L 



0:40:27 2/06/81 **** 
CSYSUB «770 



ADD16 

ADD20 

BCDXBIN 

BINXBCD 

CLR 16 

CLR WRDS 

CMPR20 

EXCMCH 

EXCMCHO 

EXCOFLMG 

EXCOFLPG 

SET OTS 

INIT OCC 

INITST 

INITSTH 

INITOST 

INSYNC 

INTCHK 

INTBEGIN 

INTBGNX 

INTEND 

PIERTN 

LOOIOC 

LODMCH 

L2 2 

L2_3 

L2_4 

L2.5 

L2_4 

L2 7 

L2_8 

L2 9 

L2 10 

L2J1 

L2.12 

L2 13 

L2 V 

MOVST 

REPT_ERR 

RGCHK32 

RGCHKADR 

SBUMCH 

SENDIO 

SENDIOS 

SENDMIO 

SENDMIOS 

SIO 

SLDHCHB 

SLDMIRL 
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01 


PUBLIC 


02 


PUBLIC 


03 


PUBLIC 


04 


PUBLIC 


05 


PUBLIC 


06 


PUBLIC 


07 


PUBLIC 


08 


PUBLIC 


09 


PUBLIC 


10 


PUBLIC 


11 


PUBLIC 


12 


PUBLIC 


13 


PUBLIC 


14 


PUBLIC 


15 


PUBLIC 


16 


PUBLIC 


17 


PUBLIC 


18 


PUBLIC 


19 


PUBLIC 


20 


PUBLIC 


21 


PUBLIC 


22 


PUBLIC 


23 


PUBLIC 


2* 


PUBLIC 


25 


PUBLIC 


26 


PUBLIC 


27 


PUBLIC 


26 


PUBLIC 


29 


PUBLIC 


30 


PUBLIC 


31 


PUBLIC 


32 


PUBLIC 


33 


PUBLIC 


34 


PUBLIC 


35 


PUBLIC 


36 


PUBLIC 


37 


PUBLIC 


38 


PUBLIC 


39 


PUBLIC 


40 


PUBLIC 


41 


PUBLIC 


42 


PUBLIC 


43 


PUBLIC 


44 


PUBLIC 


45 


PUBLIC 


46 


PUBLIC 


47 


PUBLIC 


48 


PUBLIC 


49 


PUBLIC 
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PUBLIC SYMBOLS 



01 


PUBLIC 


SHCH 


02 


PUBLIC 


SHIO 


03 


PUBLIC 


STPSTUPD 


04 


PUBLIC 


ST2_2 


05 


PUBLIC 


ST2 3 


06 


PUBLIC 


ST2 4 


07 


PUBLIC 


ST2 5 


08 


PUBLIC 


ST2 6 


09 


PUBLIC 


ST2 7 


10 


PUBLTC 


ST2 8 


11 


PUBLIC 


ST2 9 


12 


PUBLIC 


ST2 10 


13 


PUBLIC 


ST2J1 


14 


PUBLIC 


ST2 12 


15 


PUBLIC 


ST2 13 


16 


PUBLIC 


ST2 V 


17 


PUBLIC 


SUB16 


18 


PUBLIC 


SUB20 


19 


PUBLIC 


TENZERO 


20 


PUBLIC 


TESTIO 


21 


PUBLIC 


TIMCHK 


22 


PUBLIC 


TIMOUT 


23 


PUBLIC 


TIMOUTX 


24 


PUBLIC 


UNLODIOC 


25 


PUBLIC 


UNLODMCH 


26 


PUBLIC 


UNWPOST 


27 


PUBLIC 


UNWPST 


28 


PUBLIC 


UPD OTS 


2" 


PUBLIC 


HPST 


30 


PUBLIC 


WPOST 


31 


PUBLIC 


WRT PTRN 


32 


PUBLIC 


ZEROTEN 


33 


PUBLIC 


ZEROJTS 
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. 



EXTERNAL SYMBOLS 



AQ2 



01 * APPLICATION EXTERNS TO 
FIRST. 

0* EXTERN HGAREA 

06 BLMMA EXTERN PTRESET 



08 TDATA 

09 TDATA 



EXTERN 
EXTERN 



LSTTSWRD 
STRLIM 



11 TO ATA EXTERN WPTBL 



13 MASACS EXTERN 

14 MASACS EXTERN 

15 MASACS EXTERN 

16 MASACS EXTERN 



MASOFFON 
MASONOFF 
MAS ZERO 
MASCIOSC 



0:40:27 2/06/81 **** 
CSYSUB W77D 
BLMMA,INITA,TDATA,TTYAPP,TTYTBL, AND MASACS APPEAR 

n BASE ADDRESS OF H0LD-6ET AREA 

n CONSTANT USED TO PRESET PT (SYMBOL) 

It ADDRESS OF HIGHEST TS WORD (TABLE) 

If DEFINITION OF HIGHEST EQUIPPED MAS ADDR 

(TABLE) 

K DEFINITION OF PROTECTED MAS (TABLE) 

H MOVE CONTENTS OF OMAS TO MAS (SUBR) 
(K MOVE CONTENTS OF MAS TO OMAS (SUBR) 
H ZERO AREA OF MAS (SUBR) 
* DEFINITION OF MASC 10 ADDRESSES 



22 CBLM EXTERN STOPPSAU 

23 CBLM EXTERN MAS.OOS 

24 CBLM EXTERN MCH.OOS 



30 CTSO EXTERN IM_IMAGE 

31 CTSD EXTERN INTRCORD 

32 CTSD' EXTERN INTCNT 

33 CTSD EXTERN MCHFCN 

34 CTSD EXTERN SYSTATE 

35 CTSD EXTERN SYSTIM 



41 CINIT EXTERN ERPMCH 

42 CINIT EXTERN ERRPRTCK 

43 CINIT EXTERN OFL_HG 

44 CINIT EXTERN OFL_IM 
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BQ2 



MACRO DEFINITION 



MAINSECT 



0:40:27 2/06/81 **** 

csrsue wrro 



01 MNST OPSET MAINSECT 

02 MACRO 

03 MAINSECT 

04 MN MSET STR(K.SYSLIN-K.SYSLST,9?,SYSLIN> 

05 MNST MN 

06 SECTTL 2,MN 

07 MEND 

08 MAINSECT OPRSW 16 * DO NOT PRINT IN LISTING 
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:t CSYSUB 
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REGISTER DEFINITION 

- 


" 




0000004 


■ 


0000005 




0000001 




0000014 


• 


0000002 









C02 



0:40:27 2/06/81 **** 
CSYSUB W" 



01 * INTBEGIN AND INTEND SUBROUTINES 

02 CFSAVR ECtUR R4 

04 I WPST AND WPOST SUBROUTINES 

05 OFUSTR EOUR R5 

07 H SENDIO SUBROUTINES 

08 IOMSGR EOUR R1 

10 f UPD OTS,GET_OTS, AND IERO.TS SUBROUTINES 

11 STBLKR EOUR R12 

13 H EXCMCH AND EXCMCHO SUBROUTINES 
1A MCHORDER EOUR R2 



"ZTZZTZ — - « - *- — "-« - «- SH£EI '""" 
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«h 



• #^ #^ 



002 



DATA DEFINITION 



01 CFSAVR LAYOUT 

02 CFSAV ITEM 

03 LOEND 

CFSftiB ~_ rQMi-QiJ! „ 

001 



1 



0:40:27 2/06/81 **** 

CSYSUB W77D 

# USED BY INTBE6IN AND INTEND SUBROUTINES 
U POSITION OF SAVED CF IN INTERRUPT 



~ TCFSAV I 

i ****************************************************************************************** I 

l~ T T5"~T — T?"T — T3"~T — T?~T — iT"T — TO — T — ? — T — S — T — '" 



, r -j.. j..,., -,. 



■r~r ,n T 2 — i \ "X o — i 



15 OFLSTR LAYOUT * MEMORY FOR SUBROUTINES WPST AND WPOST 

16 OFLSTINIT ITEM 1 # OFLSTINIT=0 MEANS ENTRY POINT WAS WPST 
-002- 17 tt*#«H*tt*ti*n*H OFLSTINIT WILL APPEAR AS OFLSTIN IN PICTURES 

060000Q 18 # 0FLSTINIT=1 MEANS ENTRY POINT WAS WPOST 

19 INITSTO ITEM 1 # INITST0=1 MEANS ENTRY POINT WAS INITST 

20 INITH ITEM 1 # INITH=1 MEANS ENTRY POINT WAS INITSTH 

21 LOEND 
OFLSJR. Z.mzAl-1 r ._.- rTf _.„_ T --__ rj . l 

1*******************************************************************************************************1 I 

I— TJ"T— T?~T~-TJ~T™T?"T~TT~T~-TO~T— r~r~ 5™ T" 7—7—5—7— 5— 



_ r __ ? — T — 3 — T — r 



-f--r- 



"(T" 



33 IOMSGR LAYOUT 

34 MTCIO ITEM 

35 SPLIO ITEM 



IOMS.gR.__ 
001 



37 

_P.0.5_-3.s__- 



MEMORY FOR SUBROUTINES TESTIOX 
U MTC MESSAGE IS BEING SENT 
H SPECIAL IO,MTC RESPONSE SHOULD NOT BE 
TREATED AS AN ERROR. 



LOEND 



"7~SPLI0~T~MTCI0~I 



1***************************************************************************************************************1 
<__- t? -- t __- t; - t — Tr - r -- Tr - T — Tr - r ~ To — 7— 5 — T — g — 7— ? — 7— j— 7— 5— 7— 5—7— 3— 7— j— 7- 



f 



I 



1 T — C — , 



47 STBLKR LAYOUT 2 

49 ITEM ADDft 

50 LENGTH ITEM 12 

51 LOEND 



tf FORMAT OF TEMPORARY STORE SPECIFICATION 

TABLE ENTRY 
# BASE ADDRESS OF BLOCK 
K LENGTH OF BLOCK 
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DATA DEFINITION 



J22- 



0:40:27 2/06/81 **** 
CSYSUB M77D 



STBL.K8. 

001 

I 

011 



dfflfc-Bl-l... 
LENGTH 



hrr 



*!* I tt'T 



"T?~T — TT~T 



LEMiOE-eWSttS 

T0"T 



T* 



T~r 



13 MCHORDER LAYOUT 2 



7 " f-' T 



"7™J 



1A1E_A.ddre.£S__0F_B.U>C!< 

— o — 



T 



MCHP.RBER 
00 1 



011 

I 






15 ITEM AODR 

16 ITEM 8 

17 N0LDTR ITEM 1 

18 L0END 

:QQ5:_12-# 



f FORMAT OF MCH ORDERS AS USED BY SUBROUTINE 

* 20 C BIT CONSTANT TO BE LOADED INTO MCHTR 

H 4-0UT-0F-8 CODE MCH ORDER 

» LEAVE THE MCHTR INCLUDING PARITY 



4-aUIr0E;8_C_ge|_M.C_[i_0RP.E.R. 



} - - » - 1 u i « ; i m y » " 



0600000 



0000003 



-to~t — r 



"5 — T — 7 — T — ? — T r 



33 IOWAIT E«U 
35 



ft NUMBER OF LOOPS TESTIO WILL EXECUTE 

WAITING FOR 10 RESPONSE. 
K EACH LOOP IS ABOUT 8.25 MICROSECONDS. 



"T — 5 — T — 5 — T — T — T I 



0110000 



0006061 




40 MASCINIT E«U 


0000361 




41 MASCINITH E« 


0006060 




42 MASCUNBK E«U 

43 CSYSUB CSECT 




-001- 


44 * 




-001- 


45 * 




-001- 


46 * 




-001- 


47 * 



39 f CONSTANT.USED BY WPST AND WPOST SUBROUTINES ^ ■ 

1(000011110001) » HARD MASC INITIALIZATION CONSTANT 
B (11 00001 10000) » 10 ORDER TO UNBLOCK THE BUS 

COMMON SYSTEM SUBROUTINES CGENER AL_PURPOSE_> 
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3CD TO BINARY CONVERSION 



0:40:27 2/06/81 **** 
CSYSUB W77D 



BCD TO BINARY CONVERSION 



OS 
06 
07 

08 
09 
10 
11 
12 
13 
14 
13 

16 



-002- 01 * 

-002- 02 * 

-002- 03 * 

-002- 04 * 
DESCRIPTION: 
CONVERT A 4-DISIT BCD NUMBER TO BINARY 

ENTRY POINTS: 
BCDXBIN 

ENTRY CONDITIONS: 
RO ■ BCD NUMBER 

EXIT CONDITIONS: 

RO ■ BINARY NUMBER 

R1 NON-ZERO IF RO CONTAINED A BCD CHARACTER OTHER THAN DIGITS THRU 9 



22 U THIS SUBROUTINE USES THE FOLLOWING ALGORITHM TO CONVERT A 4-DIGIT BCD NUMBER 

23 # TO BINARY. IF THE 4 BCD DIGITS ARE LABELED A,B,C, AND D, THE BCD 

24 H REPRESENTATION IS EQUIVALENT TO THE BINARY NUMBER 4096A+512B+16C+D. THE 

25 # BINARY VALUE OF THE NUMBER IS, OF COURSE, 1000A+100B+10C+D. THE ALGORITHM 

26 U ESSENTIALLY PERFORMS THIS TRANSFORMATION. THE ACTUAL CALCULATIONS ARE 

27 It ILLUSTRATED BELOW: 

29 K 4096A+256B+16C+D 

30 n -1536A 1536=<4096/4>+(4096/8) 

31 n — 

32 U 2560A+256B+16C+D 

33 ff - 960A+ 96B 960=(2560/4)+<2560/8) 

34 It 96*(256/4>+<256/8> 

35 H 1600A+160B+16C+D 

36 H - 600A+ 60B+ 6C 600=(1600/4)+(1600/8) 

37 II 60«<160/4> + <160/8) 

38 n 1000A+100B+10C+D 6«<16/4) + (16/8> 



0110000 
0110000 

0110000 01 000000 171420 -002- 

0110001 

0110001 01 000001 037020 110072 0110072 -001- 
0110003 01 000003 106121 



42 BCDXBIN 




43 


BEGIN 




M> 


HA 




43 


CALL 


TENZERO 


46 


BSA 


TENZERO 


47 


LR 


R5,R1 


48 R4 


■ 


3-1 



H CONVERT BCD FORM FROM 1010 TO 0000 

H SAVE R1 

H SET LOOP TO 3 (FOR 3 SUBTRACTIONS LISTED 
ABOVE) 
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BCD TO BINARY CONVERSION 



602 



0:40:27 2/06/81 **** 
CSYSUB «770 



0110004 01 000004 003102 

0110005 01 000005 003077 

0110006 01 000006 003040 

0110007 

0110007 01 000007 106020 

0110010 01 000010 010464 

0110011 01 000011 014443 

0110012 01 000012 014022 

0110013 01 000013 010422 

0110014 01 000014 005001 

0110015 01 000015 010421 

0110016 01 000016 005001 -- „„„„„„_ 

0110017 01 000017 036100 110007 0110007 

0110021 01 000021 006025 . 

0110022 ..,..« 
0110022 01 000022 056420 



-004- 


01 




LN 


R4,3-1 




02 R3 


■ 




MSK(4) 


-004- 


03 




LN 


R3,MSK(4> 




04 


in 




R2 




05 BCDXBINLP 








06 R1 


s 




RO 


-004- 


07 




LR 


R1,R0 




08 R2 


s 




R2 I (R3 /RR 4> 


-009- 


09 




RRN 


R3,4 


-004- 


10 




OR 


R2,R3 




11 R1 


■ 




R1 S R2 


-004- 


12 




NR 


R1,R2 




13 RO 


■ 




RO - (R1 /RR 2' 


-009- 


14 




RRN 


R1,2 


-004- 


15 




SR 


R0,R1 


-009- 


16 




RRN 


R1,1 


-004- 


17 




SR 


R0,R1 




18 


BX 




R4,BCDXBINLP 




19 


LR 




R1,R5 




21 


RETURN 




-001- 


22 


BTSAG 





H USED TO GENERATE tnrtAMIC MASK 
It USED TO GENERATE DYNAMIC MASK 

* FORM NEXT MASK (EITHER A,AB, OR ABC 

K ISOLATE SUBTRAHEND 
<R1 /RR 1) If R0"R0-(Rl/4)-(Rl/8> 



n RETURN RESULT OF BCD CHARACTER TEST MADE 
IN 'TENZERO' 
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BINARY TO BCD CONVERSION 



05 
Oft 
07 
08 
09 
10 
11 
12 
13 
14 
15 



0:40:27 2/06/81 **** 
CSYSUB W77D 



-002- 01 * 
-002- 02 * 
-002- 03 * 
-002- 04 * 

DESCRIPTION: 

CONVERT A BINARY NUMBER INTO BCD. 

ENTRY POINTS: 
BINXBCD 



ENTRY CONDITIONS 

RO = THE BINARY NUMBER 

EXIT CONDITIONS 

R1 = LOW 4 BCD NUMBERS AND RO ■ 5TH BCD DIGIT. 



BINARY TO BCD CONVERSION 











0000001 


21 


RESULT EQUR 


1 










0000002 


22 


CONST EQUR 


2 


* 








0000003 


23 


TEMP EQUR 


3 










0000004 


24 


INDEX EQUR 


4 










0000007 


25 


DIGIT5 EQUR 


7 


0110023 










26 


BINXBCD 




0110023 










27 


BEGIN 




0110023 


01 


000023 


171420 




-002- 28 


HA 




0110024 


01 


000024 


003160 




29 


ZR 


DIGIT5 


0110025 










30 


CONCON 




0110025 


01 


000025 


103400 


154360 


31 


SI 


R0,10000 


0110027 


01 


000027 


055003 


— 0110032 


32 


BNC 


SMALLER 


0110030 


01 


000030 


004561 




33 


AN 


DIGITS, 1 


0110031 


01 


000031 


053774 


0110025 


34 


B 


CONCON 


0110032 










35 


SMALLER 




0110032 


01 


000032 


103400 


36 


AI 


R0,10000 


0110034 


01 


000034 


003441 


017500 


37 


LI 


CONST, 8000 


0110036 


01 


000036 


003020 




38 


ZR 


RESULT 


0110037 


01 


000037 


006060 




39 


LR 


TEMP,RO 


0110040 










40 


INIT 




0110040 


01 


000040 


103501 


000003 


41 


LI 


INDEX, 3 


0110042 










42 


LOOP 




0110042 


01 


000042 


105002 




. 43 


SR 


RO, CONST 


0110043 


01 


000043 


055003 


0110046 


44 


BNC 


' CONTIN 


0110044 










45 






0110044 


01 


000044 


006060 




46 


LR 


TEMP,RO 


0110045 


01 


000045 


026424 




47 


SBR 


RESULT, INDEX 


0110046 










48 


CONTIN 




0110046 


01 


000046 


106003 


------ 


49 


LR 


RO,TEMP 



M ACCUMULATE 10K DIGIT 



U THE NUMBER IS STILL POSITIVE 
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B03 



BINARY TO BCD CONVERSION 



0110047 01 000047 010441 

0110050 01 000050 036100 110042 0110042 

0110052 01 000052 024050 

0110053 01 000053 054010 0110063 

0110054 01 000054 024045 

0110055 01 000055 054011 0110066 

0110056 

0110056 01 000056 110434 

0110057 01 000057 016020 000017 

0110061 01 000061 006007 

0110062 

0110062 01 000062 056420 

0110063 

0110063 01 000063 103441 001440 

0110065 01 000065 053003 0110070 

0110066 

0110066 01 000066 103441 000120 
0110070 

0110070 01 000070 110434 

0110071 01 000071 053747 0110040 



-001- 



01 


RRN 


C0NST,1 


02 


BX 


INDEX, LOOP 


04 


TBN 


CONST, 8 


05 


BC 


DOHUNO 


06 


TBN 


CONST, 5 


07 


BC 


OOTEN 


09 UNITS 






10 


RLN 


RESULT,4 


11 


IRM 


RESULT,R0,B(1111) 


12 


LR 


R0,DIGIT5 


13 


RETURN 




14 


BTSAG 




16 DOHUND 






17 


LI 


CONST, 800 


18 


B 


DOROTAT 


19 OOTEN 






20 


LI 


CONST, 80 


21 DOROTAT 




22 


RLN 


RESULT,4 


23 


B 


INIT 



0:40:27 2/06/81 **** 
CSYSUB M770 

* MAS THOUSANDS DIGIT JUST COMPLETED? 
It HAS HUNDREDS DIGIT JUST COMPLETED? 

* UNITS DIGIT IS REMAINDER IN RO 



K DO HUNDREDS DIGIT 
# DO TENS DIGIT 
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C03 



CONVERT BCD ZERO 



0:40:27 



2/06/81 **** 



05 
06 
07 
03 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



-002- 
-002- 
-002- 
-002- 



01 
02 
03 
04 



DESCRIPTION: 

EXAMINE EACH DIGIT OF A 



CSrSUB 



W77D 



CONVERT BCD ZERO 



4-DIGIT BCD NUMBER FOR ONE OF TWO 



ZERO FORMS (1010 OR 0000) AND CONVERT TO THE OTHER FORM. 

THE ASSUMPTION IS ALSO MADE THAT ONLY DIGITS THRU 9 ARE VALID. 

THEREFORE, A CHECK IS MADE FOR CHARACTERS PLUS (+), MINUS (->, SPACE,PERIOD 

AND RUBOUT. IF R1 IS RETURNED NON-ZERO, THEN ONE Of THESE CHARACTERS 

WAS PRESENT AS ONE OF THE 4 BCD CHARACTERS IN RO. 

ENTRY POINTS: 

TENZERO--CONVERT 1010 FORM TO 0000 FORM 

ZEROTEN--CONVERT 0000 FORM TO 1010 FORM 

ENTRY CONDITIONS: 

RO ■ 4-DIGIT BCD NUMBER 

EXIT CONDITIONS: 

R1 «= ONLY IF RO CONTAINED THE DIGITS THRU 9 



0110072 

0110072 01 000072 103421 002000 

0110074 01 000074 053002 0110076. 

0110075 

0110075 01 000075 103021 

0110076 
0110076 

0110076 01 000076 171420 

0110077 01 000077 003043 

0110100 01 000100 003060 

0110101 

0110101 01 000101 110404 

0110102 01 000102 026460 





27 TENZERO 










28 


R1 




!<10J 


004- 


29 




LI 




R1,E(10) 




30 


B 




ZTMERGE 




34 


ZEROTEN 










35 


R1 




E(0) 


004- 


36 

40 


ZTMERGE 


LN 




R1,E<0) 




41 


BEGIN 






002- 


42 


HA 










43 


R2 




3 




004- 


44 




LN 




R2,3 




45 


R3 









004- 


46 

47 


ZEROTENLP 


ZR 




R3 




48 


RRN 




RO 


.4 




49 


SBR 




R3, 


KO 



* LOOP 4 TIMES FOR 4 BCD DIGITS 
n INITIALIZE R3 



It SETUP NEXT DIGIT 

K SET BIT EQ.U8L TO THE CHARACTER 
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P03 



CONVERT BCD ZERO 



0110103 01 000103 02AA20 

0110104 

0110104 01 000104 055003 0110107 

0110105 01 000105 003404 000012 
0110107 

0110107 01 000107 136040 110101 0110101 

0110111 01 000111 003462 174000 

0110113 01 000113 006023 

0110114 

0110114 01 000114 056420 



01 


TBR 


R1,R0 


02 


IF 


CF = 1 THEN XI R0,10 


-001- 03 


BNC 


IFS149 


-001- 04 


XI 


R0,10 


-001- 05 IFS149 






06 


BX 


R2,ZER0TENLP 


07 


NI 


R3,MSK<5,11) 


08 


LR 


R1,R3 


09 


RETURN 




-001- 10 


BTSAG 





0:40:27 2/06/81 **** 
CSYSUB W77D 



» SAVE BITS FOR OTHER THAN THRU 9 
K RETURN RESULTS IN Rl 
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E03 



16 OF 


20 BIT ADDS AND 


SUBTRACTS 




0:40:27 2/06/81 **** 












» 


CSYSUB W77D 












-002- 01 


* 












-002- 02 


* 16 OR 20 BIT ADDS AND SUBTRACTS 












-002- 03 














-002- 04 


* 








05 * 


DESCRIPTION 












06 H Performs double register (20-b1t> addition. Add* either a 16 or 20 bit 








07 n 


1n R0,R1 to 


RA1. 




0110115 






08 

09 * 

10 # 

11 « 


ENTRIES 

ADD16 

ADD20 




■■ 


0110115 






12 

13 

14 » 

15 # 


INPUTS 

RA1 « 20-BIT 

R1 ■ LOW 16 


AUGEND 
BITS OF ADDEND 










16 U 


R0(3-0> ■ HIGH 


0110115 






17 

18 # 

19 * 

20 * 


OUTPUTS 

RA1 ■ 20-BIT 

RO = IF NO 


SUM 
OVERFLOW 










21 # 


RO — IF OVERFLOH (RESULT > E<20)> 


0110115 










23 ADD16 




0110115 










24 


BEGIN 


0110115 


01 


000115 


103000 




25 


ZR RO 


0110116 










27 ADD20 




0110116 










28 


BEGIN 


0110116 


01 


000116 


171420 




-002- 29 


HA 


0110117 01 


000117 003402 


)00017 


30 


NI R0,MSK(4) 


0110121 


01 


000121 


003742 


300017 


31 


NI RA1,MSK(4) 


0110123 


01 


000123 


003040 


...... 


32 


ZR R2 


0110124 


01 


000124 


001761 


.-__.. 


33 


AR RA1+1,R1 


0110125 


01 


000125 


030040 




1 


ICF R2,0 * SAVE CARRY 


0110126 


01 


000126 


001740 




AR RA1,R0 


0110127 


01 


000127 


001742 




36 


AR RA1,R2 # ADD CARRY 


0110130 


01 


000130 


072756 




37 


HN RA1,14 


0110131 


01 


000131 


072777 




38 


HN RA1+1,15 


0110132 


01 


000132 


016416 


177760 


39 


LRM R0,RA1,MSK<12,4> H TRANSFER OVERFLOW INFO TO RO 


0110134 










40 


RETURN 


0110134 


01 


000134 


056420 




-001- 41 


BTSAG 


COMMON 
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SUBROUTINES 
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16 OR 20 BIT ADDS AND SUBTRACTS 



0:40:27 2/06/81 **** 



CSYSUB 
• 01 U DESCRIPTION 

Ht I Per l2 r f? double register (20-bit) subtraction. Subtracts either a 16 
01 03 * or 20 bit quantity 1n R0,R1 from RA1. 

05 § ENTRIES 

06 § SUB16 

07 SUB20 
0110135 08 

09 K INPUTS 

10 # RA1 ■ 20-BIT MINUFW 

11 # R1 - LOW 16 BITS OF SUBTRAHEND 

12 * R0C3-0) ■ HIGH 4 BITS OF SUBTRAHEND 

14 # OUTPUTS 

15 # RA1 = 20-BIT DIFFERENCE 

16 » RO = IF DIFFERENCE IS POSITIVE 

17 U RO -*= IF DIFFERENCE IS NEGATIVE 

0J10135 1? SUB16 

0110135 20 BEGIN O 

0110135 01000135 103000 21 ZR r * ZERO HI BITS 

0110136 23 SUB 2 
0110136 24 BE61N 

0110136 01 000136 171420 -002- 25 HA 

0110137 01 000137 003402 000017 26 NI R0.MSK(4> # keep only men a or »n bit ma 
0110141 01 000141 003742 000017 27 NI RA1 MSK(4> T N °* 
0110143 01 000143 005361 28 SR RA1+1.R1 # SUB LOW 16 BrT* 

§Z\\ 81 828^5 g&? :::::: ° 1101 " IS i tA l » 1 &tW£8 less than or m* 

0110146 3? N oDEC ' DECREMENT HI 4 BITS OF MINUEND 

0110147 01 000147 n?lwA 8 B RA1 ''' * SUB HI 4 BITS 

SHSIS 8] 888] 5 o 7 oil?? 6 ? :::::: g EK K,*Tis * ST0RE 0F RESUU F0R RETURN ' 6A ' 

0110151 01 000151 016416 177760 LR „ R0,RA1,MSK<12,4> § TRANSFER POS/NEG INFO TO RO 

0110153 01 000153 056420 -001- 37 BTSaT 



W77D 
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20 BIT COHPARE 



603 



0:40:27 2/06/81 **** 
CSYSUB W77D 



0110154 
0110154 

0110154 



01 



0110154 
0110154 

0110154 01 

0110155 01 
0110157 01 
0110161 
0110161 

0110162 01 

0110163 01 

0110164 01 
0110165 
0110165 

0110165 01 

0110166 01 

0110167 01 
0110170 01 
0110171 
0110171 
0110171 

0110172 01 

0110173 01 

0110174 01 
0110175 
0110175 

0110175 01 

0110176 01 



01 



05 

06 
07 
08 
0? 
10 
11 
12 

13 

14 
15 
16 
17 
18 
19 
20 
21 
22 



-002- 01 * 

-002- 02 * 20 BIT COMPARE 

-002- 03 * 

-002- 04 * 
DESCRIPTION 

Performs a double register (20-bit) arithmetic comparison. 
R.J TO RA1. 

ENTRIES 
CMPR20 



Compares 



INPUTS 

RA1 ■ 20-BIT QUANTITY 

RAO = 20-BIT QUANTITY 



OUTPUTS 
RO 



CF 
CF 



RETURN CODE 
2 - RA1 > RAO 
1 - RA1 = RAO 
- RA1 < RAO 

IF RA1 >= RAO 

1 IF RA1 < RAO. 



000154 171420 

000155 003702 000017 
000157 003742 000017 

000161 006014 

000162 005016 

000163 054002 0110165 

000164 056442 

000165 106016 

000166 005014 

000167 054002 0110171 

000170 056440 

000171 106013 

000172 005017 

000173 054002 0110175 

000174 056442 

000175 106017 

000176 005015 



-002- 



-003- 
-003- 
-001- 
-002- 
-001- 

-003- 
-003- 
-001- 
-002- 
-001- 

-003- 
-003- 
-001- 
-002- 
-001- 

-003- 
-003- 



24 CMPR20 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 IFS180 

35 

36 

37 

38 

3? 

40 IFS184 

41 

42 

43 

44 

45 

46 IFS188 

47 

48 

4? 



BEGIN 

HA 

NI 

NI 

IF 



RA0,HSK(4) 

RA1,MSK<4) 

R14 > R12 THEN RETURN 
LR R0,R12 
SR R0,R14 
BC IFS180 
BTSAGN 2 



IF R'i 
tR 
SR 
BC 
BTSAGN 



IF 



IF 



< R12 THEN RETURN 

R0,R14 

R0,R12 

IFS184 



R15 > R13 THEN RETURN 2 

LR R0,R13 

SR R0,R15 

BC • IFS188 

BTSAGN 2 

R15 < P.13 THEN RETURN 
LR R0,R15 
SR R0,R13 
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20 BIT COMPARE 



m 



0110177 0,1 000177 054002 0110201 -001- 01 BC IFS192 

0110200 01 000200 056440 -002- 02 BTSAGN 

0110201 -001- 03 IFS192 
0110201 04 RETURN 1 
0110201 01 000201 156441 -001- 05 BiSAGN 1 



0:40:27 2/06/81 **** 
CSYSUB H770 
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J2A 



INTERRUPT 


BEGIN AND END ROUTINES 0:40:27 2/06/81 **** 






CSYSUB W77D 






-002- 01 * 






-002- 02 * INTERRUPT BEGIN AND END ROUTINES 






-002- 03 * 






-002- 04 * 




05 


* DESCRIPTION: 




06 


* INTBEGIN IS A SPECIAL SUBROUTINE CALLED ONLY BY AN 




07 


* INTERRUPT PROGRAM. IT REQUIRES A SPECIAL CALLING SEQUENCE. 




08 


* ALL OF THE BOOKWORK REQUIRED TO GET INTO AND OUT OF AN 




09 


* INTERRUPT IS PERFORMED. 




10 


* 




11 


* ENTRY POINTS: 




12 


* INTBEGIN 




13 


* INTBGNX— SAME AS INTBEGIN BUT FOR INTERRUPTS FROM EXTERNAL DEVICES 




14 


* INTEND 




15 


* 




16 


* ENTRY CONDITIONS: 




17 


* THE FOLLOWING RIGID SEQUENCE MUST BE OBSERVED AND MUST APPEAR 




18 


* AT THE ENTRY TO AN INTERRUPT PROGRAM: 




19 


* 




20 


* INTENTRY 




21 


* HA 




22 


* LI R2,E(INTERRUPT NUMBER,0-15) 


i 


23 


* CALL INTBEGIN 




24 


* INTSTART 




25 


* 




26 


* (ENTIRE INTERRUPT PROGRAM) 




27 


* 




26 


* BL INTEND 




29 


ft 




30 


* EXIT CONDITIONS: 




31 


* THE FIRST EXIT IS TO THE RETURN ADDRESS, IE, LOCATION INTSTART 




32 


* ABOVE. R0,R1,CF, AND IM HAVE BEEN SAVED, IM HAS BEEN SET TO 




33 


* NEW PRIORITY CONSTANT. IS BIT AND BIN HAVE BEEN RESET. 




34 


* NONE OF THE GENERAL REGISTERS ARE PRESERVED. 




35 


* 




36 


* THIS ROUTINE DOES NOT RETURN AFTER REENTRY AT INTEND. 




37 


* AT THAT ENTRY POINT, THE STATE OF THE CC IS RESTORED 




38 


* AND THE PIE TO END THE INTERRUPT IS GIVEN. 


0110202 




41 CFSAVR PICTURE 


CFSAVR. 




-001- 42 # 


00 1 




1 CFSAV 1 


|**ft**rtft***ft******ft*ft**************ft**ft*ft*********ft****ft***ft*ft*ftft*******ft**ft*ft* 


I — T5~~T — T?~T — T3"~T — T?~~T — TT"T — T0*"T 9 — T 5 — T 7" T — 5 T — J — T" 4" — T — J — T — 2 — T — T — T 0~ I 

COMMON SYSTEM SUBROUTINES PR-1C956-50 
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INTERRUPT BEGIN AND END ROUTINES 



0110202 
0110202 

0110202 01 000202 130lo? 



0:*0:27 2/06/81 **** 
CSYSUB W77D 



0110203 01 000203 037040 043142 CTSD 

0110205 01 000205 054030 0110235 

0110206 01 000206 024100 



01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 

15 

17 



INTBGNX 

U THE CF MUST BE SAVED BEFORE ANY INSTRUCTION. WHICH CHANGES IT IS EXECUTED 
ICF R4,S(CFSAV> 
ONLY A LIMITED NUMBER OF EXTERNAL INTERRUPTS ARE ALLOWED EACH 
BASE LEVEL LOOP. IT IS ASSUMED THAT A FAULT HAS OCCURRED 
IF THIS THRESHOLD IS EVER EXCEEDED. IN PARTICULAR, AN EXCESSIVE 
NUMBER OF CALLS TO INTBGNX CAN RESULT FROM A SINGLE STUCK INTERRUPT. 
ONLY EXTERNAL INTERRUPTS ARE OF CONCERN BECAUSE THEY AFFECT BOTH CC'S. 
THE RECOVERY MECHANISM FOR STUCK INTERNAL INTERRUPTS IS A SWITCH 
CC. THIS IS ACCOMPLISHED BY THE PROGRAM TIMER 



TO THE OTHER 
TIMING OUT. 
A1S 

BC 



TBN 



INTCNT 

STUCKINT 

R4,S(CFSAV) 



INCREMENT THE PER BASE LEVEL LOOP COUNT OF 

EXTERNAL INTERRUPTS 

ASSUME A STUCK INTERRUPT ON OVERFLOW AND GO 

TO BLOCK IT 

RESTORE THE CF FOR INTBEGIN 



0110207 
0110207 

0110207 01 000207 130100 

0110210 01 000210 031460 043143 CTSD 

0110212 01 000212 014462 

0110213 01 000213 044460 

0110214 

0110214 01 000214 072340 -001 ■ 

0110215 01 000215 072361 -001' 

0110216 01 000216 072400 

0110217 01 000217 072421 

E0110220 01 000220 021074 — 

0110221 01 000221 072462 

0110222 01 000222 072503 

0110223 01 000223 015502 

0110224 01 000224 004501 

0110225 01 000225 014464 

0110226 01 000226 022075 

0110227 01 000227 007703 

0110230 „, 

0110230 01 000230 013000 -001- 

0110231 01 000231 033126 -002- 

0110232 ... 
0110232 01 000232 013002 -001- 



21 
22 



INTBEGIN 

ABEGIN 



23 » THE CF MUST BE SAVED BEFORE ANY INSTRUCTION WHICH CHANGES IT IS EXECUTED 



24 
25 
26 
27 
28 

30 
31 
32 
33 
34 
35 
36 
37 

I 

42 
43 
44 
45 
■ 46 
47 
48 
49 



ICF 
LAL 
OR 
ST 



GRTNADR RA1 



R4,S(CFSAV) 
R3,INTRC0RD,RA1 
R3,R2 
R3,0(RA1) 



# RECORD THAT THIS INTERRUPT OCCURRED 



H GET ADDRESS NOW IN ORDER TO REUSE SLOTS 
AND 1 



GN RA1,0 

GN RA1+1,1 
THE UTILITY REGISTER DUMP ROUTINE ASSUMES RO AND R1 ARE 
IN SLOTS AND 1, RESPECTIVELY 



HN 
HN 
LRS 
HN 



HN 

COM 

AN 

OR 

ZBN 

LSR 

MIMODE 

MIS 

VFD 
ZBIN 
MIS 2 



R0,0 

R1,1 

R3,IM 

R3,2 * 

R4,3 n 

R4,R2 # 

R4,1 

R3,R4 

R3,S(MANI> 

IM,R3 

L IS R,R2 



8, IS RXT 8,R2XF 



n HOLD REGISTERS NOT HELD BY HA INSTRUCTION 



SAVE THE IM BECAUSE IT IS ABOUT TO BE 

CHANGED 

SAVE CF 

FORM NEW IM TO BLOCK ALL LOWER INTERRUPTS 



It GUARANTEE USE OF PANEL 
* RESET INTERRUPT SOURCE 
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INTERRUPT BEGIN AND END ROUTINES 



0110233 01 000233 107322 

0110234 01 000234 052420 



004 



-001- 01 DATA 36562 

02 * RA1 LOADED FROM TINE CF HAS SAVED 



0:40:27 2/06/81 **** 
CSYSUB H77D 



03 



BR 



0(RA1) 



K RETURN TO INTERRUPT PROGRAM BUT REMAIN AT 
THIS HG LEVEL 



0110235 



-001- 



10 STUCKINT 

11 # BLOCK THIS INTERRUPT BECAUSE IT IS STUCK 

12 CSYSUB OH 0(235) * 13874 

13 NOTE ************* THE FIRST ADDRESS OVERHRITTEN IS 000235 ********** 



0110235 01 000235 137000 115247 0115247 -001- 

-001- 
-001- 



16 CPATCH3 BGNP 0(154) # 13874 

17 BL XXX213 

18 NOTE CPATCH3 'CSECT' 

19 NOTE ***************** PATCH AREA BEGINS AT 000154 **************** 



0115247 

0115247 05 000154 172400 

0115250 05 000155 072421 

0115251 05 000156 031460 043021 CTSD 
0115253 

0115253 05 000160 037000 110237 0110237 



-001- 22 XXX213 PATCHAREA 



-001- 
-001- 
-001- 



23 
24 
25 
26 
27 
28 
29 



HN 

HN 

LAL 

ENDP 

BL 

NOTE 

NOTE 



R0,0 
R1,1 
R3,IM IMAGE, RA1 



K SAVE RO AND R1 



* RECORD THAT THE INTERRUPT OCCURED 

n 13874 
XXX215 

************ LAST PATCH ADDRESS USEO IS 000161 *************** 
***** NUMBER OF PATCH HORDS USED IS 6 (DECIMAL) ******** 



0110237 

0110237 01 000237 114462 

0110240 

0110240 01 000240 044460 

0110241 01 000241 007703 

0110242 01 000242 015442 

0110243 01 000243 020446 
0110244 

0110244 01 000244 073053 

0110245 01 000245 103240 

0110246 01 000246 021044 



-001- 
-001- 



32 XXX215 OWCONTINUE 



33 
34 
35 



39 
40 
41 
42 
. 43 

-001- 45 

-001- 46 

-002- 47 

-002- 48 

-002- 49 



OR 

EOU 

NOTE 



ST 
LSR 
COM 
FLZ 

PRINT 



R3,R2 * BLOCK THE INTERRUPT 

* 13874 
*************** THE LAST ADDRESS OVERHRITTEN IS 000237 ********* 

* 



R3,0(RA1) 

IM,R3 

R2 

R2,R6 

FMT«(HRD(R,M,V>,HRD(I,N,T),DEC),PACTI0N"*,PRI0R»2 



MESSAGE PROTOTYPE 
* mm RMV INT ddddd 

BSAI PXMRY SUBROUTINE PMRY IS IN PROGRAM TTYAPP 

VFD 1,1 2,0 1,0 3,3 1,0 1,1 1,0 2,2 1,0 3,0 
VFD 4,TTY0. 4,TTY0_ 4,TTY0_ 4,TTY0_DEC 
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INTERRUPT BEGIN AND END ROUTINES 



0110247 01 000247 021042 

0110250 01 000250 010035 TTYTBL 

0110251 01 000251 001113 TTYTBL 



002- 01 


VFD 


002- 02 


VFD 


002- 03 


VFD 


001- 04 


NOTE 



-001- 06 NOTE 

07 CSYSUB OW 
-001- 08 NOTE 



0:40:27 2/06/81 **** 
CSYSUB W77D 



4,TTY0 4,TTY0_ 4,TTY0_ 4,TTY0_ 
5,2 117RXMV 

THE 1 VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 

CONTAINED IN GENERAL REGISTERS R6, 
****THIS MESSAGE WILL RESULT IN A MINOR ALARM**** 

************* THE FIRST 3 ADDRESS OVERWRITTEN IS 000252 ********** 



0110252 01 000252 153006 
0110253 



0110260 



11 

12 

-001- 13 



B INTRST 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000252 ********* 



0110253 
0110253 

0110253 01 000253 113002 

0110254 01 000254 105722 

0110255 01 000255 072062 

0110256 01 000256 007703 



28 MIMODE DATA*S(BIN),L SS_S,YT 
-001- 29 MIS S(BIN) 
-002- 30 VFD 8,SS_SXT 8,YTXF 

002 31 GN R3,2 * 6ET SAVED IM 

32 LSR IM,R3 

************* THE HMT ADDRESS OVERWRITTEN IS 000257 ********** 



-001- 34 



NOTE 



0110257 01 000257 072103 
0110260 ._■!._ 

0110260 01 000260 172000 

0110261 01 000261 072021 
0110262 



-001- 



37 GN 


R4,3 


38 INTRST 




39 GN 


R0,0 


40 GN 


R1,1 


41 EOW 




42 NOTE 


**** 



It GET SAVED CF AND 10 FLAGS 
n RESTORE RO AND R1 

*************** THE LAST ADDRESS OVERWRITTEN IS 000261 ********* 

* 
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INTERRUPT BEGIN AND END ROUTINES 



0110262 

0110262 01 

0110263 01 

0110264 01 
0110266 

0110266 01 

0110267 01 

0110270 01 

0110271 01 
0110272 

0110272 01 



000262 113000 

000263 053065 

000264 003440 000020 

000266 013000 

000267 032526 

000270 024100 

000271 071400 

000272 156500 



_£QA_ 



01 DDELETE NOTE 1 

02 MIMODE L R2,HG 
-001- 03 MIS 

-002- 04 VFD 8,R2XT 8,HGXF 

05 AI R2/16 

06 HIMODE L HG,R2 
-001- 07 MIS 

-002- 08 VFD 8,HGXT 8,R2XF 

09 T8N R4,S(CFSAV> 

10 GA 

11 PIERTN 

12 PIE 



0:40:27 2/06/81 **** 
CSYSUB W77D 

» INCREMENT HG, IE GO TO ORIGINAL LEVEL 



n RESTORE THE CF 
.# RESTORE R2-R15 

n RETURN FROM INTERRUPT 
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UNLOAD AND LOAD 10 CHANNEL STATE 



0:40:27 2/06/81 **** 
CSYSUB W77D 



UNLOAD AND LOAD 10 CHANNEL STATE 



05 
06 
07 
08 
0? 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 



-002- 01 * 
-002- 02 * 
-002- 03 * 
-002- 04 * 

* DESCRIPTION" 

* THESE TWO COMPLEMENTARY SUBROUTINES ARE USED TO UNLOAD OR 

* LOAD THE TWO STATE REGISTERS IN AN 10 CHANNEL (IOD AND CHC). 

* THE IOD IS TREATED NORMALLY. HOWEVER, BECAUSE OF HARDWARE 

* RESTRICTIONS, THE CHC CANNOT ALWAYS BE RESTORED TO THE STATE 

* IN WHICH IT WAS FOUND. HENCE, THE FOLLOWING MECHANISM IS USED. 

* THE UNLOAD SUBROUTINE DOES NOT UNLOAD THE "C BUT DIFFERENTIATES BETWEEN 

* FOUR STATES: IDLE, NORMAL COMPLETE, MAINTENANCE COMPLETE, AND ANYTHING 

* ELSE WHICH IS CONSIDERED AN ERROR. THEN, THE LOAD SUBROUTINE 

* TAKES THE APPROPRIATE ACTION FOR EACH OF THE STATES. . 

* THESE SUBROUTINES ARE NORMALLY USE TO SAVE AND RESTORE A CHANNEL IN 

* AN INTERRUPT. 
* 

* ENTRY POINT: 

* UNLODIOC 



ENTRY CONDITIONS: 

R9 •= 10 CHANNEL 3X6 ADDRESS 

EXIT CONDITIONS: 

RO = CODE INDICATING CHC STATE 

0--CHANNEL WAS IDLE 

1--N0RMAL COMPLETE 

2— MAINTENANCE COMPLETE 

3--ERR0R 
■ CONTENTS OF IOD (1 AND 2 ONLY) 



* R1 






0110273 

0110273 

0110273 01 
0110274 

0110274 01 

0110275 01 
0110276 
0110276 

0110276 01 

0110277 01 

0110300 01 
0110301 

0110301 01 

0110302 01 
0110303 



000273 123540 -- 

000274 055002 — 

000275 056460 — 



000276 171420 

000277 023500 
000300 006033 



0110276 



36 
37 
38 

-002- 39 

-003 

-002 



000301 055002 

000302 056441 



0110303 



40 
41 
42 
002- 43 
44 
45 
46 
47 
48 
49 



34 UNLODIOC 

35 » DELAY THE HA TO MAKE IDLE CASE FAST 
BEGIN (> 
TCH 
IF CF THEN RETURN 

BNC IFS252 
BTSAN 



IFS252 



-002- 
-003- 
-002- 



BEGIN 






•' 




HA 












TIO 












LR 




R1, 


R11 






IF 




CF 


THEN 


RETURN 


1 




BNC 




IFS258 






BTSAGN 


1 







IFS258 
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UNLOAD AND LOAD 10 CHANNEL STATE 



JSL 



0:40:27 2/06/81 **** 
CSYSUB W77D 



0110303 01 

0110304 01 
0110305 
0110305 
0110306 
0110307 
011C307 
0110310 
0110310 01 



01 
01 

01 



000303 123520 

000304 006033 

000305 055002 0110307 

000306 056442 

000307 123560 

000310 056443 



01 




TWO 


02 




LR R1,R11 


03 




IF CF THEN RETURN 2 


-002- 04 




BNC IFS261 


-003- 05 




BTSAGN 2 


-002- 06 


IFS261 




07 




110 


08 




RETURN 3 


-001- 09 




BTSAGN 3 



it IDLE I/O CHANNEL ON ERROR RETURN 



15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 



* 
* 
* 
* 
* 

* 
* 
* 
* 
* 



ENTRY POINT: 
LODIOC 

ENTRY CONDITIONS: 

R9 = 10 CHANNEL 3X6 ADDRESS 

R0,R1-SEE EXIT CONDITIONS FOR UNLODIOC 

EXIT CONDITIONS: 

IF RO * 3 (IE, AN ERROR) THE CHANNEL HAS BEEN LEFT IDLE 
IF RO * 0,1,2 THE IOD IS RESTORED AND THE CHC IS SET TO 
IDLE, NORMAL COMPLETE, MAINTENANCE COMPLETE RESPECTIVELY. 



0110311 

0110311 

0110311 01 000311 123560 

0110312 01 000312 003402 000003 

01 1031 4 01 000314 056000 

0110315 

0110315 01 000315 156460 

0110316 01 000316 153003 — : 0110321 

0110317 01 000317 153007 0110326 

0110320 

0110320 01 000320 156460 

0110321 
0110321 

0110321 01 000321 113002 

0110322 01 000322 105722 

0110323 

0110323 01 000323 013000 

0110324 01 000324 164071 

0110325 01 000325 053005 0110332 



29 LODIOC 

30 n DELAY THE HA TO MAKE IDLE CASE FAST 





31 


BEGIN 


() 




3? 


ZIO 






33 


NI 


R0,MSK(2> 




34 


BPAX 


RO 




35 


RETURN 





-001- 


36 


BTSAN 







37 


B 


IONORM 




38 


B 


IOMTC 




39 


RETURN 





-001- 


40 


BTSAN 







42 


IONORM 






43 


SBIN 




-001- 


44 


MIS 


2 


-001- 


45 


DATA 


35794 




46 


MIMODE 


MD1CHTN 


-001- 


47 


MIS 





-002- 


48 


DATA MD1CHTNX 




49 


B 


IOLODMG 



U PRECAUTIONARY MEASURE 

# PROTECT AGAINST BAD DATA IN RO 



U LOAD IOS WITH NORMAL COMPLETE 



COMMON SYSTEM SUBROUTINES 

0:40:27 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CSYSUB 



PR-1C956-50 
ISSUE 05 PAGE 



27 



B05 



UNLOAD AND LOAD 10 CHANNEL STATE 



0110326 ' 
0110326 

0110326 01 

0110327 01 
0110330 
0110330 01 
0110331 
0110332 



01 



0110332 

0110332 01 

0110333 01 

0110334 01 

0110336 01 
0110337 

0110337 01 
01103*0 01 
0110341 

0110341 01 

0110342 01 
0110343 

0110343 01 

0110344 01 
0110345 

0110345 01 



000326 113002 

000327 105722 

000330 013000 

000331 164072 

000332 171420 

000333 003006 

000334 016220 000017 

000336 006241 

000337 013000 

000340 074072 

000341 013000 

000342 164074 

000343 013002 

000344 107322 

000345 056440 





02 


IOMTC 


■ 




03 


SBIN 




001- 


04 


NIS 


2 


001- 


05 


DATA 


35794 




06 


HIMODE 


HD2CHTM 


001- 


07 


MIS 





002- 


08 


DATA HD2CHTHX 




09 


IOLODHG 






11 


BEGIN 




002- 


12 


HA 






13 


LN 


R0,B(0110) 




14 


IRM 


R9,R0,HSK<4> 
R10,R1 




15 


LR 




16 


HIMODE 


HD6RAI0 


001- 


17 


HIS 





002- 


18 


DATA MD6RAI0X 




19 


HIMODE 


MD3CHC 


001- 


20 


HIS 





002- 


21 


DATA HD3CHCX 




22 


ZBIN 




001- 


23 


HIS 


2 


001- 


24 


DATA 


36562 




25 


RETURN 





001- 


26 


BTSAGN 






0:40:27 2/06/81 **** 
CSYSUB W77D 



n LOAD IOS WITH MAINTENANCE COHPLETE 

* 2X4 CODE NEEDED BY HD3CHC CROSSPOINT 
» LOAD IOD 
» LOAD CHC 
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COS 



RANGE CHECK ADDRESS 



0:40:27 2/06/81 **** 
CSYSUB W77D 



0110346 



0110346 

0110346 
0110346 



0110346 



-002- 01 
-002- 02 
-002- 03 
-002- 04 
OS 
06 
07 
08 
09 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 



RANGE CHECK ADDRESS 



# DESCRIPTION: 

It CHECK A STORE ADDRESS TO DETERMINE IF IT IS IN 

It AN E8UIPPED STORE MODULE AND WHETHER IT IS WRITE PROTECTED 

K OR NOT. 

U ENTRY POINT: 

H RGCHKADR - ONLY 20 BITS ARE ASSUMED TO BE IN RA1 



K RGCHK32 



ALL 32 BITS OF RA1 ARE CHECKED AGAINST 'STRLIM'. 



U ENTRY CONDITIONS: 

n RA1=ADDRESS TO BE CHECKED 

# EXIT CONDITIONS: 

It R0=RETURN CODE 

n 0— OUT OF RANGE 

H 1--PR0TECTED STORE BLOCK 

U 2— UNPROTECTED STORE BLOCK 

n R1 * WRITE-PROTECT WORD CORRESPONDING TO 64K BLOCK 



0110346 
0110346 

0110346 01 000346 171420 

0110347 01 000347 003000 

0110350 01 000350 053003 0110353 

0110351 
0110351 

0110351 01 000351 171420 

0110352 01 000352 026000 

0110353 

0110353 01 000353 131042 021637 TDATA 

0110355 01 000355 040061 

0110356 01 000356 003442 000017 

0110360 01 000360 014000 

0110361 01 000361 054005 0110366 

0110362 01 000362 003743 177760 
0110364 01 000364 003443 177760 

0110366 

0110366 01 000366 105077 

0110367 

0110367 01 000367 054002 0110371 

0110370 01 000370 004057 



-002- 



-002- 



26 RGCHK32 

27 BEGIN 

28 HA 

29 ZR RO 

30 B GTSTRLIM 



32 

33 

34 
35 
36 

37 

;? 

40 
41 
42 
43 



45 

46 

47 

-002- 48 

-002- 49 



RGCHKADR 

BEGIN 

HA 

SBN 
GTSTRLIM 

LAL 

L 

NI 

TZ 

BC 

01 

01 



R0,0 

R2,STRLIM,RA0 

R3,1(RA0> 

R2,MSK(4) 

RO 

REGSUB 

R14,MSK(12,4) 

R2,MSK(12,4) 



REGSUB 



SR 
IF 



BC 
SN 



R3,R15 

- CF THEN SN 

IFS294 

R2,1 



R2,1 



U FLAG FOR THIS ENTRY 



n INSURE RO NON-ZERO 



n CLR HI BITS OF SRTLIM 

U B IF RGCHK32 ENTRY 

U INSURE UPPER BITS ARE E«UAL AND NON-ZERO 
n NON-ZERO BECAUSE COMPARISON MAY BE WRONG 
WITH ZERO OPERAND 

M 20-BIT SUBTRACT 
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RANGE CHECK ADDRESS 



D05 



0:40:27 2/06/81 **** 
CSYSUB W77D 



0110371 
0110371 
0110372 
0110372 
0110373 
0110374 
0110374 
0110376 
0110400 

0110401 
0110402 
0110403 
0110403 
0110404 
0110405 
0110405 
0110405 



01 



000371 105056 

000372 054002 0110374 

000373 056440 

000374 131022 020013 TDATA 
000376 003742 000017 

000400 042036 

000401 010774 

000402 024437 

000403 055002 0110405 

000404 056441 

000405 156442 



-002- 



-002- 
-003- 
-002- 



-002- 
-003- 
-002- 

-001- 



01 IFS294 

02 

03 

04 

05 

06 IFS296 

07 

08 

09 

11 

12 

13 

14 

15 

16 IFS299 

17 

18 



SR R2,R14 

IF - CF THEN RETURN 

BC IFS296 

BTSAGN 

LAL R1,WPTBL,RA0 
NI R14,MSK(4) 
U R1,R14(RA0) 

RRN R15,12 
TBR R1,R15 
IF CF THEN RETURN 1 

BNC IFS299 

BTSAGN 1 



# ADDRESS IS TOO BIG 



# ISOLATE HIGH BITS OF ADDRESS 

K GET HRITE-PROTECT BITS FOR 65,536 WORD 

BLOCK 
U RIGHT ADJUST 4096 WORD BLOCK 



RETURN 
BTSAGN 
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E05 



TURN OFF WRITE PROTECT OF STORE 



05 


* 


06 


* 


07 


* 


08 


* 


0? 


* 


10 


* 


11 


* 


12 


A 


13 


* 


14 


* 


15 


* 


16 


* 


17 


* 


18 


A 


19 


* 


20 


A 


21 


A 


22 


A 


23 


ft 


2* 


ft 


25 


ft 



0:40:27 2/06/81 **** 
CSYSUB W77D 



TURN OFF WRITE PROTECT OF STORE 



-002- 01 * 
-002- 02 * 
-002- 03 * 

-002- 04 * 

DESCRIPTION: 

DEFEAT THE WRITE PROTECTION MECHANISM FOR ONE 
4096-WORD BLOCK OF MAIN STORE. 

ENTRY POINTS: 

UNWPST FOR THIS STORE 

UNWPOST--FOR OTHER STORE 

ENTRY CONDITIONS: 

RA1 = ADDRESS WITHIN THE 4K BLOCK 

EXIT CONDITIONS: 

RO » RETURN CODE 
0--SUCCESS 

1--ERR0R, ADDRESS SPECIFIES AN UNEQUIPPED OR UNPROTECTED 4K BLOCK 
2--ERR0R, AN OTHER MAS ERROR OCCURRED (UNWPOST ONLY) 

R1 * CONSTANT NEEDED TO SET UP WRITE PROTECT AGAIN 

RAO = ADDRESS NEEDED TO SET UP WRITE PROTECT AGAIN 

IE, THE SEQUENCE LR R0,R1/ MST O(RAO) WILL WRITE PROTECT 
THE 4K BLOCK THIS SUBROUTINE UNPROTECTS 

INTERRUPTS ARE BLOCKED ON EXIT (UNWPST ONLY) 



0110406 
0110406 

0110406 01 000406 171420 

0110407 01 000407 026040 

0110410 01 000410 053003 0110413 

0110411 
0110411 

0110411 01 000411 171420 

0110412 01 000412 022040 

0110413 

0110413 

0110413 01 000413 173036 

0110414 01 000414 156000 

0110415 

0110415 01 000415 156441 

0110416 01 000416 153002 0110420 

0110417 

0110417 01 000417 156441 



29 UNWPOST 




30 BEGIN 




31 HA 




32 SBN 


R2,0 


33 B 


UNWPMERGE 



-002- 



35 UNWPST 

36 ABEGIN 
-001- 37 HA 

38 ZBN R2,0 

39 UNWPMERGE 

40 CALL RGCHKADR 
-001- 41 BSAI rgchkAdr 

42 BPAX RO 

43 RETURN 1 
-001- 44 BTSAGN 1 

45 B DOWP 

46 RETURN 1 
-001- 47 BTSAGN 1 



H REMEMBER WHICH ENTRY POINT 

U SUBROUTINE RGCHKADR IS IN PROGRAM CSYSUB 
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TURN OFF WRITE PROTECT OF STORE 



0110420 

0110420 01 000420 106077 

0110421 01 000421 010474 

0110422 01 000422 006001 

0110423 01 000423 022403 

0110424 01 000424 022377 

0110425 01 000425 072754 

0110426 01 000426 072775 

0110427 01 000427 024040 

0110430 01 000430 054006 0110436 

0110431 

0110431 01 000431 013002 

0110432 01 000432 105722 

0110433 

E01 10433 01 000433 000420 

0110434 01 000434 136203 

0110435 

0110435 01 000435 056440 

0110436 
0110436 

E01 10436 01 000436 100420 

0110437 01 000437 136103 

0110440 „..„.*, 

0110440 01 000440 055002 0110442 

0110441 01 000441 056442 

0110442 

0110442 

0110442 01 000442 156440 



0:40:27 2/06/81 **** 
CSYSUB W77D 



01 


DOWP 






02 




LR 


R3,R15 


03 




RRN 


R3,12 


04 




LR 


R0,R1 


05 




ZBR 


R0,R3 


06 




ZBN 


R15,15 


07 




HN 


RA1,RA0 


08 




HN 


RA1+1,RA0+1 


09 




TBN 


R2,0 


10 




BC 


OFLWP 


11 




SBIN 




001- 12 




MIS 


2 


001- 13 




DATA 


35794 


14 




MST 


0(RA1) 


001- 15 




MSTF 


0(RA1) 


001- 16 




DATA 


B (101 11 10010000011) 


17 




RETURN 





001- 18 




BTSAGN 





20 


OFLWP 






21 




MSTOS 


0(RA1) 


•001- 22 




MSTF 


0(RA1> 


•001- 23 




DATA 


B (101 11 10001000011) 


24 




IF 


CF THEN RETURN 2 


•002- 25 




BNC 


IFS319 


■003- 26 




BTSAGN 2 


■002- 27 


IFS31S 






28 




RETURN 





■001- 29 




BTSAGN 






df SET UP RAO FOR RETURN 
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INITIALIZE MASC INCLUDING WRITE PROTECT 



0:40:27 2/06/81 **** 
CSTSUB W77D 



05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 



-002- 01 


* 


-002- 02 


* 


-002- 03 


* 


-002- 04 


A 



INITIALIZE HASC INCLUDING WRITE PROTECT 



INITIALIZE ALL ON-LINE OR OFF-LINE MAIN STORE CONTROLLERS (MASC) 
AND LOAD THEIR WRITE PROTECT REGISTERS. 

ENTRY POINTS: 

INITST 

INITOST 

WPST 

WPOST 

ENTRY CONDITIONS: 
NONE 

EXIT CONDITIONS: 
NONE 

RESTRICTIONS: 

MASCO IS NOT INITIALIZED AND IT IS ASSUMED THAT THIS 

SUBROUTINE IS LOADED IN MASO. 



0110443 

OFLSJB-- 
00 1 



27 

dOBlzJiUL 



OFLSTR_PICTURE 



1**********************************************************1*^^ > i- 

i — _ 5 __ T — T? — T — -j~ T — T? — r — TT — T — T(J - t-?T8T7T5T5 1 ? T ^T 1 2 T 



"ni?ITf?~TlNITSTOTOFLSTIN I 



T 



0110443 
0110443 
0110443 01 000443 137020 111240 0111240 

0110445 01 000445 103003 

0110446 01 000446 053010 0110456 

0110447 

0110447 01 000447 103002 

0110450 01 000450 053006 0110456 

0110451 

0110451 01 000451 103000 

0110452 01 000452 053004 0110456 



-001- 



37 INITOST 

38 

39 

40 

41 

42 INITST 

43 

44 

45 WPST 

46 

47 



-001- 
-001- 



CALL 
BSA 
LN 
B 

LN 

B 

LN 
B 



48 CPATCH BGNP 



49 
50 



NOTE 
NOTE 



INIT OCC 

INIT OCC 

RO,ES (INITSTO/OFLSTINIT) 

WPSTMERGE 

PO,ES(INITSTO) 
WPSTMERGE 

R0,0 

WPSTMERGE 

0(471) * 11711 

CPATCH 'CSECT' 

******a********** PATCH AREA BEGINS AT 000471 **************** 
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INITIALIZE MASC INCLUDING WRITE PROTECT 



0112123 „,„„, 

0112123 02 000471 103006 

011212* 02 000*72 037000 110*56 01W56 
011212* 



A06 



01 
02 
03 
0* 
-001- 05 
-001- 06 



INITSTH 



LN 

BL 

ENDP 
NOTE 
NOTE 



0:*0:27 2/06/81 **** 
CSYSUB W77D 

I HARD INIT ENTRY INTO INITST 
RO,E(S<INITSTO),S<INITH>) * SET ENTRY FLAGS 
WPSTMERGE 

************ LAST PATCH ADDRESS USED IS 000*73 *************** 
***** NUMBER OF PATCH WORDS USED IS 3 (DECIMAL) ******** 



0110*53 

0110*53 01 000*53 137020 1112*0 01112*0 
0110*55 01 000*55 103001 

0110*56 

0110*56 . „„ 

0110*56 01 000*56 171*20 

0110*57 01 000457 006120 

0110*60 01 000*60 003101 MASACS 

0110*61 01 000*61 022100 

0110*62 01 000*62 010501 

0110*63 

0110*63 01 000*63 1036*1 006061 



-001 • 



-002- 



10 WPOST 

11 

12 

13 



CALL 

BSA 

LN 



-001- 



15 
16 
17 
18 
19 
20 
21 
22 
23 
2* 
25 



WPSTHERGE 

BEGIN 

HA 

LR 

LN 

ZBN 

RRN 

INITSTLOOP 
LI 

CSYSUB OW 

NOTE 



INIT OCC 
INIT OCC 
RO,ES(OFLSTINIT> 



If INSURE OFF-LINE STORE IS NOT ISOLATED 



OFLSTINIT,RO 
R*,TBLSIZ(MASCI0SC>-1 
R4,0 * 

R*,1 



R10,MASCINIT 
0(*65) 



DIVIDE TBLSIZ BY 2 



10 ORDER TO INITIALIZE MASC 
11711 



************* THE FIRST ADDRESS OVERWRITTEN IS 000*65 ********** 



0110*65 01 
0110*66 01 
0110*67 
0110*67 



000*65 006000 
000*66 02*122 



15 

30 

31 

-001- 32 



NOP 
TBN 

EOW 
NOTE 



0110467 01 000467 055003 0110*72 

0110470 01 000470 0036*1 000361 

0110*72 

0110*72 01 000*72 131021 016*46 MASACS 

0110*7* 01 000*7* 04322* 

0110*75 01 000*75 0*3224 

0110*76 „ .„ 

0110*76 01 000*76 02*120 „.««., 

0110477 01 000477 055013 0110512 

0110500 01 000500 003441 004620 

0110502 01 000502 006071 ■...-■« 

0110503 01 000503 031420 110577 0110577 



-002- 
-002- 
-002- 



-004- 
-002- 

-004- 

-004- 



35 

36 

37 

38 IFS342 

39 

40 

41 

42 

*3 

** 

*5 

46 

47 R3 

48 

49 



IF 



OFLSTINIT,S(INITH) K CHK IF HARD INIT RE8UESTED 
* B IF NO. 

*************** THE LAST ADDRESS OVERWRITTEN IS 000466 ********** 



BNC 
LI 



CF THEN LI R10,MASCINITH # IF THIS 
IFS342 
R10,MASCINITH * 



IS A BOOTSTRAP USE HARD INIT 



LAL 
LAX 
LAX 
IF 



R1,MASC. T 0SC,RA0 

R?,R4(RA0> 

R9,R4(RA0) 



R2 



TBN 
BNC 

LI 

■ 

LR 
LAL 



H TABLE OF MAS 10 PORT ADDRESSES Bifl - „. 
H THIS PLUS NEXT LAX PERFORMS RA0=RA0+2*R* 
n INIT R9 TO MY STORE 10 ADDRESS 
OFLSffNlf'THEN RGBEGIN If ENABLE ONLINE ACCESS TO OFFLINE MAS 

OFLSTINIT,S(OFLSTINIT) 

IFS3*4 

LDMCHB*E<4) 

R2,LDMCHB*E(4) 

R9 

R3,R? 

R1,0STTBL/RA1 



COMMON SYSTEM SUBROUTINES 

0:40:27 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET 



CSYSUB 



PR-1C956-50 
ISSUE 05 PAGE 



34 



• • 



INITIALIZE MASC INCLUDING WRITE PROTECT 



B06 



0:40:27 2/06/81 **** 
CSYSUB W77D 



0110505 

0110505 01 000505 037020 111224 0111224 

0110507 01 000507 155022 0110531 

0110510 01 000510 040221 

0110511 01 000511 053005 0110516 

0110512 

0110512 



0110512 

0110512 01 000512 114104 

0110513 01 000513 055003 

0110514 01 000514 003641 006060 
0110516 

0110516 



0110516 



0110516 

0110516 01 

0110517 01 
0110520 01 
0110521 
0110522 
0110522 

0110523 01 

0110524 01 

0110525 01 
0110527 01 

0110530 01 
0110531 

0110531 01 
0110533 

0110533 01 

0110534 01 

0110535 01 
0110537 
0110537 
0110537 01 

0110540 01 

0110541 01 
0110542 

0110542 01 
0110544 01 
0110546 



01 
01 



000516 113002 

000517 105722 

000520 023440 

000521 023440 

000522 013002 

000523 107322 

000524 003017 

000525 136000 110525 0110525 
000527 003240 

000530 023440 

000531 136100 110463 0110463 

000533 024120 

000534 055003 0110537 

000535 037020 111240 0111240 

000537 124121 

000540 055002 0110542 

000541 056420 



000542 130502 
000544 016544 



021637 TDATA 
000003 



-001- 



-001- 



-002- 
-001- 



01 
02 
03 
04 
05 
06 
07 IFS344 

0? 

10 
11 



CALL 

BSA 

BNC 

L 

B 

RGEND 



IF 



-001- 12 

-001- 13 IFS357 



TZ 

BNC 

LI 



R4 



EXCMCHO 

EXCMCHO 

WPSTERR 

R9,1(RA0) 

SENOINIT 



« THEN LI R10,MASCUNBK # CHANGE 10 ORDER TO ONLY ENABLE BOS 
R4 

R10,MASCUNBK If CHANGE 10 ORDER TO ONLY ENABLE BUS 



15 

16 

17 

18 

19 

20 

21 

22 

23 

-001- 24 

-001- 25 

26 

27 

28 

-001- 29 

-001- 30 

31 

32 

33 

34 

35 

36 

37 

-004- 38 

-002- 39 

-003- 40 

-002- 41 

42 

-004- 43 

-002- 44 

-003- 45 

-002- 46 

47 

48 

49 



It TWO 10 ORDERS ARE USED BELOW. THE FIRST ONE IS USED TO GUARANTEE 
U THAT THE MASC 10 IS INITIALIZED. THIS IS ACCOMPLISHED BY SENDING 
n IT AND THEN IMMEDIATELY SENDING THE NEXT ONE WHICH CUTS OFF THE 

# FIRST ORDER. CUTTING IT OFF CAUSES THE CIRCUIT TO INITIALIZE ITSELF. 

# THE SECOND SMIO IS THE ONE THAT ACTUALLY SEND THE INITIALIZATION ORDER 
U TO THE MASC. THE BLOCKING OF INTERRUPTS IS DONE TO GUARANTEE 

» THAT THE SECOND SMIO WILL BE EXECUTED FAST ENOUGH TO CUT OFF THE FIRST. 
SBIN 

2 
35794 



SELF 



MIS 

DATA 

SMIO 

SMIO 

ZBIN 

MIS 

DATA 

LN 

BX 

ZR 

SMIO 



2 

36562 

R0,15 

RO,SELF 

R10 



WASTE TIME FOR SMIO 
«CLEAR PREVIOUS ORDER 



WPSTERR 



BX 
IF 



IFS362 



TBN 
BNC 
BSA 



OFLSTINIT THEN CALL INIT OCC * RETURN OTHER CC TO HALT LOOP 
OFt.STINIT,S(OFLSTINIT) 
IFS362 
INIT OCC 



IF 



IFS367 



TBN 
BNC 
BTSAG 



INITSTO THEN RETURN 
INITSTO,S(INITSTO) 
IFS367 



LL 
LRM 



R4,STRLIM 
R6,R4,MSK(2> 



# MOD PAIRS MINUS ONE FOR HIGHEST MAS 
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INITIALIZE MASC INCLUDING WRITE PROTECT 



C06 



0:40:27 2/06/81 **** 
CSYSUB W77D 



0110546 01 000546 010502 

0110547 01 000547 003502 000003 
0110551 

0110551 01 000551 106344 

0110552 01 000552 010756 

0110553 01 000553 003360 

0110554 01 000554 031002 020013 TDATA 
0110556 

0110556 01 000556 142016 

0110557 01 000557 006000 

0110560 

0110560 01 000560 024120 

0110561 01 000561 055004 0110565 

0110562 

E0110562 01 000562 000420 

0110563 01 000563 136103 

0110564 01 000564 053003 0110567 

0110565 

0110565 

0110565 
E01 10565 01 000565 100420 

0110566 01 000566 136203 

0110567 

0110567 01 000567 104741 

0110570 01 000570 006000 , 

0110571 01 000571 036140 110556 0110556 

0110573 01 000573 003143 

0110574 01 000574 036100 110551 0110551 
0110576 

0110576 01 000576 056420 



0110577 

0110577 01 000577 000004 

0110600 01 000600 006420 000000 



01 
02 
03 
04 
05 
06 

08 
0? 
10 
11 
12 
-004- 13 
-002- 14 



RRN 
NI 
WPSTLOOP 
LR 
RLN 
ZR 

LAL 

LDWPREGLP 
LX 
NOP 
IF 



15 
16 
17 
18 
19 
001- 20 IFS372 



-001- 
-001- 



TBN 

BNC 

MSTOS 

MSTF 

DATA 

e 

RGEND 



R4,2 
R4,MSK(2) 

R14,R4 

R14,2 

R15 

R0,WPTBL,RA0 

R0,R14(RA0> 



OFLSTINIT THEN RGBEGIN 

OFLSTINIT,S(OFLSTINIT) 

IFS372 

0(RA1) 

0(RA1) 

B (101 1110001000011) 

LDWPREGHERGE 



NUMBER OF MAS'S MINUS ONE 



ft GUARANTEE RA1 CONTAINS ADDRESS OF AN EVEN 
MAS MOD 



22 


MST 


001- 23 


MSTF 


001- 24 


DATA 


25 


LDWPREGMERGE 


26 


AN 


27 


NOP 


28 


BX 


29 


LN 


31 


BX 


32 


RETUR 


■001- 33 


BTSAG 



ocrad 

0<RA1) 

B (101 11 10010000011) 

R14,1 



R6 / LDWPREGLP 
R6,3 

R4, WPSTLOOP 



# MOD PAIRS MINUS ONE FOR ALL BUT HIGHEST 

MAS 






39 OSTTBL 



40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



DATA ENTRIES (OSTTBL) 

THIS CODE IS INTENDED TO WORK WITH BOTH THE OLD AND NEW MAS DESIGN. 
THE OLD DESIGN REHIRES THAT THE MS REGISTER BE LOADED TO OVERRIDE THE 
IS DisABLi AND SEND 10 ORDERS TO PROVIDE ACCESS. THE NEW &«IGN 
REQUIRES ONLY THAT THE MS BE LOADED TO ALLOW ACCESS. THE TWO MAINTENANCE 
STATES ARE NOT EXCLUSIVE AND REWIRE ONLY ONE CONSTANT TO BE LOADED 
INTO THE MS LOADING A ONE WITH GOOD PARITY WILL SET BIT AND THE PH BIT. 
BIT STRIDES THE 10 DISABLE AND THE PH BIT ENABLES 10 ACCESS TO THE 
OFF-LINE MAS. 
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INITIALIZE MASC INCLUDING WRITE PROTECT 



0110602 01 000602 000720 064631 
0110604 01 000604 004620 000001 
0110606 01 000606 000720 106631 

0000004 



01 
02 
03 



_B2L 



0:40:27 2/06/81 **** 
CSYSUB W770 



ADDR r9XT*E(8)IMCHBXF,LI>MIRL * SET UP TIO ADDRESS 

ADDR MSXT*E<8> lMCHBXF,LDMIRL # ENABLE ON-LINE CC 10 ACCESS TO MAS 



U.J AUUK ru*l"CVO/im.ru»r,n/n 

04 ENTRIES (OSTTBL) E8U <*-0STTBL-1 >/2 
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BEGIN OR STOP STORE UPDATE 



E06 



0:40:27 2/06/81 **** 
CSYSUB W77D 



BEGIN OR STOP STORE UPDATE 



05 
06 
07 
08 
0? 
10 
11 
12 
13 
14 
15 



-002- 01 * 

-002- 02 * 

-002- 03 * 

-002- 04 * 
DESCRIPTION: 
ENABLE OR DISABLE THE AUTOMATIC UPDATING OF THE OTHER STORE 

ENTRY POINTS: 

STPSTUPD— STOP STORE UPDATE (DISABLE UPDATING) 

ENTRY CONDITIONS: 
NONE 

EXIT CONDITIONS: 
NONE 



0110610 
0110610 

0110610 01 

0110611 01 
0110613 

0110613 01 
0110614 

0110614 01 
0110615 

0110615 01 
0110616 

0110616 01 
0110617 

0110617 01 
0110621 
0110621 01 



000610 171420 -002- 

000611 003401 036260 

000613 013400 -001- 

000614 070523 -001- 

000615 145312 -001- 

000616 026750 . -001- 

000617 037020 003674 CBLM -001- 
000621 156420 -001- 



19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 



STPSTUPD 

BEGIN 



HA 

LI 

MIMODE 

MI 

L 

VFD 
BRXMMS 

DATA 
ZMINT 

DATA 
CALL 
BSA 
RETURN 
BTSAG 



R0,ES(BDSR1,BDSR0,IS01,IS00,REV1,RW1,RW0> 




BR,RO 



8,BRXT 8,R0XF 
BRXMMSX 



ZMINTX 



STOPPSAU 
STOPPSAU 
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UNLOAD AND LOAD MAINTENANCE CHANNEL STATE 



0:40:27 2/06/61 **** 
CSYSUB W77D 



0110622 
0110622 

0110622 01 

0110623 01 

0110624 01 

0110625 01 

0110626 01 

0110627 01 

0110630 01 
0110631 

0110631 01 

0110632 01 

0110633 01 

0110634 01 

0110635 01 

0110636 01 

0110637 01 
0110640 
0110640 01 
0110642 
0110642 01 



05 
06 

07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
16 
1? 
20 
21 
22 



-002- 01 * 

-002- 02 * 

-002- 03 * 

-002- 04 * 

THESE TWO COMPLEMENTARY ROUTINES ARE ANALOGOUS TO THOSE 
FOR 10 CHANNELS (UNLODIOC,LODIOC) . THE MCHB AND MCHTR 
ARE UNLOADED, INCLUDING PARITY, AND THE STATE IS 
DETERMINED AS IDLE (COMPLETE) OR ERROR. 

ENTRY POINT: 
UNLODMCH 



UNLOAD AND LOAD MAINTENANCE CHANNEL STATE 



ENTRY 
NONE 



CONDITIONS: 



EXIT CONDITIONS: 

RO = SEE EXIT CONDITIONS FOR 

R2(5-0)=MCHTR(PH,PL,19-16> 

R3 = MCHTR (15-0) 

R4(5-0)=MCHB(PH, PL, 19-16) 

R5 ■ MCHB(15-0> 



TMCH SUBROUTINE 



000622 
000623 
000624 
000625 
000626 
000627 
000630 

000631 
000632 
000633 
000634 
000635 
000636 
000637 



112403 
057403 
030044 
057423 
030045 
006123 
006102 

013000 
026472 
012403 
057403 
030044 
057423 
030045 



000640 037020 111104 0111104 
000642 156400 



26 


JNLODMCH 




27 


BEGIN 


<) 


28 


UNPK 


MCHB 


2? 


TSRPL 


MCHB 


30 


ICF 


R2,4 


31 


TSRPH 


MCHB 


32 


ICF 


R2,5 


33 


LR 


R5,R3 


34 


LR 


R4,R2 


35 


MIMODE 


MCHTRXMCHB 


-001- 36 


MIS 





-002- 37 


DATA MCHTRXMCHBX 


38 


UNPK 


MCHB 


39 


TSRPL 


MCHB 


40 


ICF 


R2,4 


41 


TSRPH 


MCHB 


42 


ICF 


R2,5 


43 


CALL 


TMCH 


-001- 44 


BSA 


TMCH 


45 


RETURN 




-001- 46 


BTSA 
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UNLOAD AND LOAD MAINTENANCE CHANNEL STATE 



0:40:27 2/06/81 **** 
CSTSUB W77D 



01 * ENTRY POINT: 

02 * LODMCH 

03 * 

04 * ENTRY CONDITIONS: 

05 * R0,R2,R3,R4,R5--SEE EXIT CONDITIONS FOR UNLOOMCH 

06 * 

07 * EXIT CONDITIONS: 

08 * MCHB AND MCHTR RESTORED 



0110643 
0110643 
0110643 
0110644 
0110645 
0110646 
0110647 01 
0110650 01 



01 
01 
01 
01 



01 



0110651 
0110651 
0110652 

0110652 01 
0110653 

0110653 01 
0110654 

0110654 01 
0110655 

0110655 01 

0110656 01 

0110657 01 

0110660 01 

0110661 01 
0110662 

0110662 01 
0110663 

0110663 01 
0110664 
0110664 
0110665 

0110665 01 
0110666 

0110666 01 



01 



000643 
000644 
000645 
000646 
000647 
000650 



000651 

000652 

000653 

000654 

000655 
000656 
000657 
000660 
000661 

000662 

000663 

000664 

000665 

000666 



171420 ■ 
007044 ■ 
007065 • 
012000 ■ 
010444 ■ 
006002 ' 

013400 

070523 

025730 

026472 

026750 
006044 
006065 
012000 
010444 

013400 

070526 

025730 

026750 

056420 





12 LOD 


1CH 








13 


BEGIN 






-002- 


14 


HA 








15 


EXR 


R2,R4 






16 


EXR 


R3,R5 






17 


PACK 


MCHTR 






18 


RRN 


R2,4 






19 


LR 


R0,R2 






21 


MIMODE 






-001- 


22 


HI 









23 


L 


BR,RO 




-001- 


24 


VFD 


8,BRXT 8,R0XF 




25 


LDPAR 






-001- 


26 


DATA 


.DPARX 




27 


MCHTRXMCHB 




-001- 


28 


DATA 


MCHTRXMCHBX 




29 


ZNINT 






-001- 


30 


DATA 


ZHINTX 




31 


LR 


R2,R4 






32 


LR 


R3,R5 






33 


PACK 


MCHTR 






34 


RRN 


R2,4 






35 


MIMODE 






-001- 


36 


HI 









37 


L 


BR,R2 




-001- 


38 


VFD 


8,BRXT 8,R2XF 




39 


LDPAR 






-001- 


40 


DATA 


LDPARX 




41 


ZMINT 






-001- 


42 


DATA 


ZMINTX 




43 


RETURN 






-001- 


44 


BTSA6 


, 





K RESTORE MCHB FIRST 



K GATE TO RO TO SETUP FOR INTERDATA LDPAR 
MACRO 



n RESTORE PARITY BITS 



9 RESTORE PARITY BITS 
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UPDATE OFF-LINE TEMPORARY STORE FROM ON-LINE 



JSL 



0:40:27 2/06/81 **** 
CSYSUB W77D 



05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 



-002- 


01 


-002- 


02 


-002- 


03 


-002- 


04 



UPDATE OFF-LINE TEMPORARY STORE FROM ON-LINE 



DESCRIPTION" 

COPY ON-LINE TEMPORARY STORE TO THE OFF-LINE STORE THROUGH THE USE 

OF CLEARING TABLES. THE OFF-LINE STORE IS FIRST HARDWARE INITIALIZED. 

ENTRY POINT: 
UPD.OTS 

ENTRY CONDITIONS: 

RA1 * BASE ADORESS OF CLEARING TABLE MINUS ONE 

R1 ■ NUMBER OF ENTRIES TO USE 

EXIT CONDITIONS: 
SEE ZERO TS 



0110667 
0110667 

0110667 01 000667 171420 

.0110670 01 000670 003120 „_„.„ 

0110671 01 000671 053006 0110677 



21 UPD OTS 

22 BEGIN 
-002- 23 HA 

24 LN 

25 B 



R5/UPDATELP-BPAX0RG 
STMERGE 
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COPY OFF-LINE TEMPORARY STORE TO ON-LINE 



P07 



0:40:27 2/06/81 **** 
CSYSUB W77D 



05 
06 
07 
08 
0? 
10 
11 
12 
13 
1A 
15 
16 
17 
18 



-002- 01 
-002- 02 
-002 
-002 



03 
04 



COPY OFF-LINE TEMPORARY STORE TO ON-LINE 



* C0PY R OFF-LINE TEMPORARY STORE TO THE ON-LINE STORE THROUGH THE USE 

* OF CLEARING TABLES. THE COPY IS ONLY DONE IF THE 

* ON-LINE CENTRAL CONTROL HAS ACCESS TO THE OFF-LINE STORE. 
* 

* ENTRY POINT: 

* GET_OTS 
* 

* ENTRY CONDITIONS: 

* RA1 = BASE ADDRESS OF CLEARING TABLE MINUS ONE 

* R1 ■ NUMBER OF ENTRIES TO USE 
* 

* EXIT CONDITIONS: 

* SEE ZERO TS 



0110672 
0110672 

0110672 01 000672 171420 

0110673 01 000673 003123 

0110674 01 000674 053003 



-001' 



0110677 



22 GET.OTS 

23 

24 

25 

26 



ABEGIN 
HA 
LN 
B 



R5,6ET OTSLP-BPAXORG 
STMERGE 
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ZERO TEMPORARY STORE 



_C07_ 



0:40:27 2/06/81 **** 
CSYSUB V77D 



ZERO TEMPORARY STORE 



05 
06 
07 
08 
0? 
10 
11 
12 
13 
14 
15 
16 
17 
18 



-002- 01 * 

-002- 02 * 

-002- 03 * 

-002- 04 * 
DESCRIPTION: 
ZERO TEMPORARY STORE THROUGH THE USE OF CLEARING TABLES. 

ENTRY POINT: 
ZERO.TS 

ENTRY CONDITIONS: 

RA1 ■ BASE ADDRESS OF CLEARING TABLE MINUS ONE 

R1 ■ NUMBER OF ENTRIES TO USE 

EXIT CONDITIONS: 
NONE 

WARNING— IF ZERO TS IS USED TO CLEAR THE HG AREA, 
R2-R15 WILL BE ON RETURN. 



0110675 

STBL.KR. 

00 1 

I 

011 



I" 



"tt-~1 — «"■!"■ « l ft I'T"! 



21 

:0.Q1=_22*_ __ 

lengtR 
.U|N5Id_2E-aWfi£!< 

TO 



STBLKR.PICTURE 



_eA£I_A.&G8E&£_aL.BL_0CJL 



T 9 T g j- 



7— r 



"I T 1 0~ 



0110675 
0110675 

0110675 01 000675 171420 -001- 

0110676 01 000676 003126 

0110677 

0110677 01 000677 106101 

0110700 

0110700 01 000700 072140 -001- 

0110701 01 000701 072161 -001- 

0110702 01 000702 006316 

0110703 01 000703 006337 

0110704 01 000704 053021 0110725 

0110705 

0110705 01 000705 141341 

0110706 01 000706 041361 



34 ZERO_TS 

35 ABEGIN 

36 HA 

37 LN 



R5,ZTS_ENTRY-BPAX0RG 



STMERGE 



41 

42 
43 

45 

46 

47 

48 

49 

50 TBLLOOP 

51 

52 



LR R4,R1 
GRTNADR R6 



GN 
GN 
LR 
LR 
B 
* 

LA 
LA 



R6,0 

R6+1,1 

RA0,RA1 

RA0+1,RA1+1 

CHKINDEX 

RA1,1(RA0> 
RA1+1,1(RA0) 



* SAVE RETURN ADDRESS IN CASE THE INPUT 

PARAMETERS CAUSE THE HG AREA TO BE ZEROED 



» RA0=RA1 



It LOAD TABLE ENTRY 
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ZERO TEMPORARY STORE 






0110707 01 000707 006056 

0110710 01 000710 003442 177760 

0110712 01 000712 010444 

0110713 01 000713 004441 

0110714 01 000714 056005 

0110715 

0110715 
0110715 

0110715 01 000715 137021 014412 MASACS 
0110717 01 000717 153006 0110725 



01 R2 

-004- 03 
-004- 04 
-005- 05 
-004- 06 

07 

08 BPAXORG 



D07 . 

0:40:27 2/06/81 **** 

CSYSUB W770 

R14 8 M(LENGTH) /RR S(UENGTH) + 1 * ISOLATE BLOCK LENGTH FOR 
INNER LOOP 

LR R2,R14 

NI R2,M(LENGTH) 

RRN R2,S (LENGTH) 

AN R2,1 
BPAX R5 * SELECT INNER LOOP 



-001- 



12 UPDATELP 

13 CALL 

14 BSA 

15 B 



MASONOFF 
MASONOFF 
CHKINDEX 



0110720 

0110720 

0110720 01 000720 137021 014546 MASACS 

0110722 01 000722 153003 0110725 



-001' 



19 GET OTSLP 

20 CALL 

21 BSA 

22 B 



MASOFFON 
MASOFFON 
CHKINDEX 



0110723 
0110723 
0110723 01 000723 137021 014574 MASACS 



-001- 



26 ZTS ENTRY 

27 CALL 

28 BSA 



MAS ZERO 
MAS_ZERO 



0110725 01 000725 136100 110705 0110705 

0110727 

0110727 01 000727 072540 

0110730 01 000730 072561 

0110731 

0110731 01 000731 056420 
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32 CHKINDEX 



-001- 
-001- 

-001- 



33 

34 
35 
36 
37 
38 



BX 



HRTNADR R6 



R4,TBLL00P 



HN 
HN 
RETURN 
BTSAG 



R6,0 
R6+1,1 






# RESTORE RETURN ADDRESS 
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- E07 — 

"" _______—_——- 0-40:27 2/06/61 **** 

MULTIPLE STORE CLEAR OR PATTERN WRITE SUBROUTINE 

CSYSUB W77D 

I°02- 02 * MULTIPLE STORE CLEAR OR PATTERN WRITE SUBROUTINE 
-002- 03 * 

-002- OA * 

06 I THE C MULTIP , LE STORE WRITE SUBROUTINE CAN BE USED TO: 
UO 1. CLEAR A BLOCK OF 16 MEMORY WORDS 

08 * 2 CLEAR A BLOCK OF A SPECIFIED NUMBER OF WORDS 

09 * \. WRITE A SPECIFIED PATTERN IN A SPECIFIED NUMBER OF WORDS. 

10 * 

11 * ENTRY POINTS: r ^ _ ^^ ^ ^^ _ ^ ^ m ^ H0RDS WH0S£ A „ DRESS IS 

13 * " GIVEN IN RA1 

1* * ENTRY CONDITIONS: 

IS * RA1 ■ ADDRESS OF BLOCK TO BE CLEARED 

\\ I 2 . CLR WRDS - CLEAR A BLOCK OF N MEMORY WORDS WHOSE ADDRESS IS 

17 * " GIVEN IN RA1 

i« * ENTRY CONDITIONS: 

,2 * RA1 ■= ADDRESS OF BLOCK TO BE CLEARED 

20 * RO •= nGmbIr OF WORDS N TO BE CLEARED (RIGHT ADJUSTED) 

,1 * 3 WRT PTRN - WRITE A SPECIFIED PATTERN INTO A BLOCK OF N MEMORY WORDS 

„ * - WHOSE ADDRESS IS GIVEN IN RA1 

%\ * ENTRY CONDITIONS: 

24 * RA1 = ADDRESS OF BLOCK TO BE CLEARED .«..„—«., 

It ! RO = NUMBER OF WORDS N TO BE WRITTEN (RIGHT ADJUSTED) 

H * ri . 16-BIT PATTERN TO BE WRITTEN IN EVERY WORD 

27 * 

28 * EXIT CONDITIONS: 

29 * NONE 

....... ,, URD CNT FQMD ro CONTAINS NUMBER OF WORDS TO BE WRITTEN 

SSSSSS? II "ptVMuT r? » *f*asgggi& BE HRITTEN (ALL ZER0ES 

0000016 34 BAS.ADR E«UR RA1 » ™¥™ (lllll™*™ " ^ " " 

0110732 01 000732 103401 000020 37 CLR.16 LI WRD_CNT,16 #SETUP TO CLEAR 16 WORDS 

0110734 H Eb5fj WRD E o #CLEAR PATTERN REGISTER TO WRITE ALL ZEROES 

* U r,KN FOR CLEAR OPERATION 

0110734 01 000734 103020 "004- 42 « PTRN 

.„.,„ 44 BEGIN () 

0110735 01 000735 136000 110740 0110740 45 WRT.PTRN BX WRD_CN7,D0WRITE 

0110737 KEIUKM 

0110740 01 000740 146M0 """' "°° 1 " *8 DOWRITe'sTX PTRN,WRD_CNT (BAS.ADR) ^WRITE LAST WORD THROUGH FIRST WORD OF 

PR-1C956-50 
COMMON SYSTEM SUBROUTINES 
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MULTIPLE STORE CLEAR OR PATTERN WRITE SUBROUTINE 
0110741 01 000741 053774 0110735 01 



COMMON SYSTEM SUBROUTINES 



f07 



B WRT.PTRN 



0:40:27 2/06/81 **** 
CSTSUB M77D 
H TO DECREMENT INDEX 
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MULTIPLE LOAD SUBROUTINES 



05 
06 
07 
08 
09 
10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 



0:40:27 2/06/81 **** 
CSYSUB W770 



-002- 
-002- 
-002- 
-002- 



01 
02 
03 
04 



MULTIPLE LOAD SUBROUTINES 



* DESCRIPTION: 

* LOAD REGISTERS R2 THROUGH RN STARTING AT LOCATION 

* SPECIFIED IN RA1. 
* 

* ENTRY POINTS: 

* L2 2 LOAD R2 

* L2 3 LOAD R2-R3 

* L2 4 LOAD R2-R4 

* L2 5 LOAD R2-R5 

* L2~6 LOAD R2-R6 

* L2"7 LOAD R2-R7 

* L2"8 LOAD R2-R8 

* L2~9 LOAD R2-R9 

* L2~10 LOAD R2-R10 

* L2~11 LOAD R2-R11 

* L2~12 LOAD R2-R12 

* L2~13 LOAD R2-R13 

* L2> LOAD R2-REGISTER DETERMINED BY LOW 4 BITS OF RO 
* 

* ENTRY CONDITIONS: 

* RA1 = ADDRESS OF STORE BLOCK FROM WHICH REGISTERS WILL BE LOADED 

* R0(3-0)=REGISTER NUMBER OF LAST REGISTER TO BE LOADED (L2_V ONLY) 

* R0(15-4)=ANYTHING 

* 2<=R0O=13 
* 

* EXIT CONDITIONS: 

* RO " RETURN CODE (L2_V ONLY) 

* 0— OUT-OF-RANGE INDEX, LOAD NOT DONE 

* 2 THROUGH 13— LOAD PERFORMED 

* RO AND R1 GUARANTEED NOT DESTROYED (EXCEPT FOR L2_V) 



0110742 
0110742 

0110742 01 000742 115420 

0110743 01 000743 003422 000017 

0110745 01 000745 056001 

0110746 

0110746 01 000746 156460 

0110747 

0110747 01 00074' 154460 

0110750 

0110750 01 000750 140733 

0110751 



-004 

-004- 41 

42 



37 

38 L2_V 

39 R1 
40 



-001- 
-001- 



43 

44 

45 

46 

47 L2 13 

48 

49 L2 12 



BEGIN 



COM 
NI 

BPAX 

RETURN 

BTSAN 

RETURN 

BTSAN 



() 

- RO I MSK(4) 

R1/R0 

R1,MSK<4) 
R1 





R13,11(RA1> 



* CALCULATE INDEX 

§ R15— ILLEGAL INPUT 

* R1 4— ILLEGAL INPUT 
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JSL 



MULTIPLE LOAD SUBROUTINES 



0110751 01 
0110752 

0110752 01 
0110753 

0110753 01 
0110754 
011.0754 01 
0110755 

0110755 01 
0110756 

0110756 01 
0110757 

0110757 01 
0110760 

0110760 01 
0110761 

0110761 01 
0110762 

0110762 01 

0110763 01 
0110764 

0110764 01 
0110765 

0110765 01 
0110766 

0110766 01 
0110767 

0110767 01 



000751 140712 — 

000752 140671 

000753 140650 

000754 140627 

000755 140606 

000756 140565 

000757 140544 

000760 140523 

000761 140502 

000762 140461 

000763 153003 0110766 

000764 156460 

000765 156460 

000766 140440 

000767 056400 



-001- 
-001- 



-001- 



01 


L 


R12,10(RA1) 


02 L2 11 






03 


L 


R11,9(RA1> 


04 L2 10 






05 


L 


R10,8(RA1> 


06 L2 9 






07 


L 


R9,7(RA1> 


08 L2 8 






09 


L 


R8,6(RA1) 


10 L2 7 






11 


L 


R7,5(RA1) 


12 L2 6 






13 


L 


R6,4<RA1> 


14 L2 5 






15 


L 


R5,3(RA1> 


16 L2 4 






17 


L 


R4,2<RA1> 


18 L2 3 






19 


L 


R3,KRA1> 


20 


8 


L2_2 


21 


RETURN 





22 


BTSAN 





23 


RETURN 





24 


BTSAN 





25 L2 2 






26 


L 


R2,0<RA1> 


27 


RETURN 




28 


BTSA 





0:40:27 2/06/81 **** 
CSYSUB W77D 



* R1 —ILLEGAL INPUT 
n RO— ILLEGAL INPUT 
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BOS 



MOVE BLOCK IN STORE 



0:40:27 2/06/81 **** 
CSYSUB W77D 



05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 



-002- 

-002- 

-002- 

-002- 

DESCRIPTION: 

TRANSFER A BLOCK OF 

SPECIFIED IN RAO TO 



01 
02 
03 
04 



MOVE BLOCK IN STORE 



N WORDS FROM LOCATION 
LOCATION SPECIFIED IN RA1 . 



ENTRY POINTS: 

MOVST--MOVE BLOCK IN STORE 

ENTRY CONDITIONS: 

RO ■ NUMBER OF WORDS TO BE MOVED 

RAO ■ STARTING ADDRESS OF SOURCE BLOCK 

RA1 = STARTING ADDRESS OF DESTINATION BLOCK 

EXIT CONDITIONS: 
NONE 



0110770 
0110770 

0110770 01 000770 142020 

0110771 01 000771 046420 — 

0110772 01 000772 136000 110770 0110770 
0110774 

0110774 01 000774 056400 



21 BEGIN 

22 MOVSTLP 

23 LX 

24 STX 

25 MOVST 

26 BX 

27 RETURN 
-001- 28 BTSA 



<) 

R1,R0(RA0) 
R1,R0(RA1) 

R0,MOVSTLP 
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MULTIPLE STORE SUBROUTINES 



COS 



0:40:27 2/06/81 **** 
CSVSUB W770 



MULTIPLE STORE SUBROUTINES 



05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
1? 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 



-002- 01 * 

-002- 02 * 

-002- 03 * 

-002- 04 * 
DESCRIPTION: 

STORE REGISTERS R2 THROUGH RN STARTING AT LOCATION 
SPECIFIED IN RA1. 

ENTRY POINTS: 

ST2 2 STORE R2 

ST2"3 STORE R2-R3 

ST2~4 STORE R2-R4 

ST2~5 STORE R2-R5 

ST2~6 STORE R2-R6 

ST2~7 STORE R2-R7 

ST2~8 STORE R2-R8 

ST2"9 STORE R2-R9 

ST2~10 STORE R2-R10 

ST2~11 STORE R2-R11 

ST2~12 STORE R2-R12 

ST2~13 STORE R2-R13 

ST2> STORE R2-REGISTER DETERMINED BY LOW 4 BITS OF RO 

RA1 = ADDRESS Of'sTORE BLOCK INTO WHICH REGISTERS SHOULD BE WRITTEN 
R0(3-0)=REGISTER NUMBER OF LAST REGISTER TO BE STORED (ST2_V ONLY) 
R0(15-4)=ANYTHING 
2<<=R0<»13 

EXIT CONDITIONS: 

RO = RETURN CODE (ST2_V ONLY) 

0— OUT-OF-RANGE INDEX, STORE NOT DONE 

2 THROUGH 13— STORE PERFORMED 
RO AND R1 GUARANTEED NOT DESTROYED (EXCEPT FOR ST2_V) 





37 






BEGIN 


O 






38 


ST2 


V 










39 


R1 




E 


- RO I 


004- 


40 






COM 




R1,R0 


004- 


41 
42 

43 






NI 
BPAX 
RETURN 


R1 



R1,MSK(4) 


■001- 


44 

45 






BTSAN 
RETURN 


0. 





•001- 


46 

47 


ST2 


13 


BTSAN 









48 






ST 


R13 


,11 (RAD 




49 


ST2 


.12 









0110775 
0110775 

0110775 01 000775 115420 

0110776 01 000776 003422 000017 

0111000 01 001000 056001 

0111001 

0111001 01 001001 156460 

0111002 

0111002 01 001002 156460 

0111003 

0111003 01 001003 144733 

0111004 
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DOS 



MULTIPLE STORE SUBROUTINES 



01 



0111004 01 
0111005 

0111005 01 
0111006 

0111006 01 
0111007 

0111007 01 
0111010 
0111010 01 
0111011 
0111011 
0111012 

0111012 01 
0111013 

0111013 01 
011101* 
011101* 01 
0111015 

0111015 01 

0111016 01 
0111017 

0111017 01 
0111020 

0111020 01 
0111021 

0111021 01 
0111022 

0111022 01 



00100* 1**712 

001005 1**671 

001006 1**650 

001007 1**627 

001010 1**606 

001011 1**565 

001012 1**5** 

001013 1**523 

00101* 1**502 

001015 1***61 

001016 153003 0111021 

001017 156*60 

001020 156*60 

001021 1****0 

001022 056*00 



0:*0:27 2/06/81 **** 
CSVSUB M77D 



01 


ST 


R12,10(RA1> 


, 


02 ST2 11 








03 


ST 


R11,9(RA1> 




0* ST2 10 








05 


ST 


R10,8(RA1> 




06 ST2 9 








07 


ST 


R9,7(RA1> 




08 ST2.8 








09 


ST 


R8 / 6(RA1) 




10 ST2 7 








11 


ST 


R7,5(RA1) 




12 ST2_6 








13 


ST 


R6,4(RA1> 




1* ST2 5 








15 


ST 


R5,3(RA1) 




16 ST2_* 








17 


ST 


R*,2(RA1) 




18 ST2.3 








19 


ST 


R3.URA1) 
ST2 2 




20 


B 




21 


RETURN 





1 R1— ILLEGAL INPUT 


001- 22 


BTSAN 







23 


RETURN 





# RO— ILLEGAL INPUT 


001- 2* 


BTSAN 







25 ST2_2 








26 


ST 


R2,0(RA1> 




27 


RETURN 






■001- 28 


BTSA 
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SEND AND TEST 10 



E06 



0:40:27 2/06/81 **** 
CSYSUB W77D 



SEND AND TEST 10 



05 


* 


06 


* 


07 


ft 


08 


ft 


09 


ft 


10 


* 


11 


* 


12 


* 


13 


* 


14 


* 


15 


ft 


16 


ft 


17 


* 


18 


* 


19 


* 


20 


ft 


21 


* 


22 


ft 


23 


ft 


24 


ft 


25 


* 


26 


* 


27 


ft 



-002- 01 * 

-002- 02 * 

-002- 03 * 

-002- 04 * 

DESCRIPTION: 

USED TO SEND 10 ORDERS AND/OR TEST FOR A RESPONSE 

TESTS ARE MADE FOR BOTH THE NORMAL AND MTC RESPONSES „„„„„ 

THE POSSIBILITIES OF NO RESPONSE OR A BAD RESPONSE ARE ALSO COVERED. 

ENTRY POINTS: 

SIO AN SIO INSTRUCTION FOLLOWED BY TESTIO 

SMIO AN SMIO INSTRUCTION FOLLOWED BY TESTIO 

TESTIO-LOOK FOR RESPONSE FROM THE PERIPHERAL DEVICE. 

ENTRY CONDITIONS: _, mm „ .-._,,.„ 

R9 «= CHANNEL/SUBCHANNEL (IN STANDARD FORMAT) TO BE ACCESSED 

EXIT CONDITIONS: 

RO = RETURN CODE . ._,. 

0— NORMAL RESPONSE MESSAGE (START CODE 101) 

1--MTC RESPONSE MESSAGE (START CODE 011) 

2— FAIL, NO RESPONSE OR BAD PARITY ON RESPONSE MESSAGE 

R11 ■ RESPONSE MESSAGE 

IF RESPONSE HAD BAD PARITY, THE 'IOBADPAR' BIT AS DEFINED 

BY CINIT HAS BEEN SET IN TEMPORARY STORE WORD 'IOFLAGS'. 

THE RESPONSE (WITH CORRECTED PARITY) IS IN WORD 'SAVIOD' AND Rll - 



28 
29 
30 
31 
32 
33 
34 



WHEN THE TIO OR TMIO INSTRUCTION IS EXECUTED, THE BUS PARITY 
CHECKER IS DIVERTED TO AN INTERRUPT. THUS, IF THE IOD HAS BAD 
PARITY AND THE CHANNEL IS COMPLETE, AN INTERRUPT "GENERATED 
IMMEDIATELY FOLLOWING THE TIO (TMIO) INSTRUCTION. THE INTERRUPT 
•CLEANS UP' THE CC AND SAVES THE ABOVE DATA FOR LATER ANALYSIS. 
THE CF IS SET TO SIMULATE TIME-OUT AND FORCE THE SUBROUTINE DOWN 
THE FAIL BRANCH. 



0111023 

0111023 01 

0111024 01 

0111025 

0111025 01 

0111026 

0111026 01 

0111027 
0111027 



001023 123440 

001024 053002 0111026 



001025 123400 

001026 103003 



COMMON SYSTEM SUBROUTINES 
0:40 



38 SMIO 

39 SMIO 

40 B TESTIO 



42 SIO 
43 



45 TESTIO 

46 LN 



j; 



SIO 

RO,IOWAIT 
BEGIN 



U NUMBER OF LOOPS TO BE EXECUTED BEFORE NO 

RESPONSE RETURN 
» EACH LOOP IS ABOUT 8.25 MICROSECONDS. 
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SEND AND TEST 10 



F08 



0:40:27 2/06/81 **** 
CSYSUB W77D 



0111027 
0111027 
0111030 
0111030 
0111031 
0111032 
0111032 
0111033 
0111033 
011103* 
011103S 
0111035 
0111037 
0111040 
0111040 



01 001027 123500 

01 001030 055002 0111032 

01 001031 056460 

01 001032 123520 

01 001033 055002 0111035 

01 001034 056461 

01 001035 13600U 111027 0111027 
01 001037 023560 

01 001040 056462 





01 TESTIOLP 






02 no 






03 IF CF 


THEN RETURN 


-002- 


04 BNC 


IFS522 


-003- 


05 BTSAN 





-002- 


06 IFS522 

07 TMIO 






08 IF CF 


THEN RETURN 1 


-002- 


09 BNC 


IFS525 


-003- 


10 BTSAN 


1 


-002- 


11 IFS525 






12 BX RO 


JESTIOLP 




13 no 






14 RETURN 2 




-001- 


15 BTSAN 2 





U INSURE CHANNEL IS IDLE 
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SEND 10 ORDER AND RETRY ON FAILURE 



608 



0:40:27 2/06/81 **** 
CSYSUB M77D 



05 


* 


06 


A 


07 


A 


08 


* 


09 


* 


10 


* 


11 


A 


12 


A 


13 


A 


14 


A 


15 


A 


16 


A 


17 


A 


18 


A 


19 


A 


20 


A 



-002- 01 


* 


-002- 02 


* 


-002- 03 


* 


-002- 04 


* 



SEND 10 ORDER AND RETRY ON FAILURE 



SEND 10 ORDER (EITHER NORMAL OR MTC) AND TEST FOR 

A RESPONSE. IF THERE IS NONE OR THE RESPONSE INDICATES 

AN 10 ERROR, PERFORM A SINGLE RETRY OF THE SAME ORDER. 

SEN^O---UsT NORMAL SEND ORDERS AND RETRY ON MTC RESPONSE OR ERROR 
SENDIOS--USE NORMAL SEND ORDERS AND RETRY °NLY°N ERROR 
SENDMIO-USE MTC SEND ORDERS AND RETRY ON MTC RESPONSE OR ERROR 
SENDMIOS-USE MTC SEND ORDERS AND RETRY ONLY ON ERROR 

R9 T = Y CHANNEL/SUBCHANNEL (IN STANDARD FORMAT) TO BE ACCESSED 

EXIT CONDITIONS: 

SEE TESTIO SUBROUTINES. 



0111041 
IOM£G[l„ 
00 1 



23 

:QQl:_2.*-#- 



IOMSGR_PICTURE 



----^^^ 



TSPLIO I MTC 10 I 



t — r 



0111041 

0111041 01 001041 122021 *...«»* 

0111042 01 001042 053002 ' 0111044 

0111043 

0111043 01 001043 126021 

0111044 

0111044 01 001044 137020 111025 0111025 -00V 

0111046 01 001046 122020 „,,,.,„ 

0111047 01 001047 053006 0111055 



33 SENDIO 

34 ZBN 

35 B 

37 SENDIOS 

36 SBN 

39 IOSEND 

40 CALL 
B3A 
ZBN 
B 



41 
42 
43 



0111050 

0111050 01 001050 122021 

0111051 01 001051 053002 — 



0111053 



45 SENDMIO 

46 ZBN 

47 B 



SPLICS(SPLIO) 
IOSEND 



SPLIO,S(SPLIO) 

SIO 

SIO 

MTCIO,S(MTCIO) 

IOTEST 



SPLIO / S(SPLIO) 
MIOSEND 
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SEND 10 ORDER AND RETRY ON FAILURE 



0111052 

0111052 01 001052 126021 

0111053 
0111053 

0111053 01 001053 173041 

0111054 01 001054 126020 

0111055 

0111055 01 001055 156000 

0111056 

0111056 01 001056 156400 

0111057 01 001057 153010 0111067 

0111060 
0111060 

0111060 01 001060 124020 

0111061 01 001061 054004 0111065 

0111062 

0111062 01 001062 037020 111025 0111025 
0111064 

0111064 01 001064 156400 

0111065 
0111065 

0111065 01 001065 173041 

0111066 

0111066 01 001066 156400 



0111067 
0111067 
0111067 01 001067 124021 

0111070 01 001070 055770 0111060 

0111071 

0111071 01 001071 056400 





A09 






0:40:27 2/06/81 **** 






CSYSUB H77D 


01 


SENDMIOS 




02 


SBN 


SPLIO,S(SPLlO> 


04 


MIOSEND 




05 


CALL 


SMIO 


001- 06 


BSAI 


SXMIO n SUBROUTINE SHIO IS IN PROGRAM CSYSUB 


07 


SBN 


MTCIO,S(MTCIO) 


08 


IOTEST 




09 


BPAX 


RO # TEST RETURN CODE 


10 


RETURN 


* NORMAL CHANNEL RETURN 


001- 11 


BTSA 




12 


B 


MTCRTN n MTC RESPONSE FROM CHANNEL 


13 


# NO CHANNEL RETURN OR BAD PARITY ON RETURN 


14 


IORETRY 




15 


IF 


MTCIO THEN B MTCRETRY 


004- 16 


TBN 


MTCI0,S(MTCIO) 


002- 17 


BC 


MTCRETRY 


18 


CALL 


SIO 


001- 1? 


BSA 


SIO 


20 


RETURN 




■001- 21 


BTSA 




23 


MTCRETRY 




24 


CALL 


SMIO 


•001- 25 


BSAI 


SXMIO U SUBROUTINE SMIO IS IN PROGRAM CSYSUB 


26 


RETURN 




■001- 27 


BTSA 




33 


MTCRTN 




34 


IF 


i SPLIO THEN B IORETRY 


■004- 35 


TBN 


SPLIO,S(SPLIO) 


•002- 36 


BNC 


IORETRY 


37 


RETURN 




■001- 38 


BTSA 


* 
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SEND AND TEST MCH 



B09 



0:40:27 2/06/81 **** 
CSYSUB W77D 



05 


* 


06 


* 


07 


* 


08 


* 


09 


* 


10 


* 


11 


* 


12 


* 


13 


* 


14 


# 


15 


* 


16 


* 


17 


* 


18 


* 


19 


* 


20 


* 


21 


* 


22 


• 


23 


* 



-002- 
-002- . 
-002- 03 
-002- 04 



01 
02 



* 
* 



SENT, AND TEST MCH 



5"d R T0 T SEND A MCH MESSAGE AND TEST FOR THE RESPONSE 

ENTRY POINTS: 

SLDMCHB— SET RO = LDMCHB ♦ DO SMCH 

SLDMIRL— SET RO * LDMIRL + DO SMCH 

SMCH 

ENTRT CONDITIONS: 

JS"-"* roDE r TO°BE T S f NT Y "cAS LOADED BT LMCH MACRO) 

FOR ALL ENTRY POINTS- 

MCHTR = DATA TO BE SENT (IF ANY) 

EXIT CONDITIONS: 

RO ■ RETURN CODE 

0--NORMAL RESPONSE MESSAGE „„„„„ 
1--FAIL, NO RESPONSE OR MCH ERROR OCCURRED 

MCHB ■ RESPONSE MESSAGE 



011107? 01 001072 103401 000231 „„„_„ 
011107', 01 001074 053003 0111077 



29 SLDMCHB 

30 LI 

31 B 



RO,LDMCHB 
SMCH 



0111075 01 001075 103401 000035 



35 SLDMIRL 

36 LI 



RCLDMRl- 



0111077 

0111077 

0111077 

0111077 01 001077 113400 

0111100 

0111100 01 001100 160523 
0111101 

0111101 01 001101 134072 
0111102 

0111102 01 001102 134330 



42 

-001- 43 
44 
45 
46 
-001- 47 



40 SMCH 
41 



-001- 



-001 • 
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48 
49 






BEGIN 

MIMODE 

MI 

L 



() 



VFD 
LDSTMCH 

DATA 
STMCH 

DATA 




MCHC,RO 



8,MCHCXT 8,R0XF 

LDSTMCHX 

STMCHX 



SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CSYSUB 



PR-1C956-50 
ISSUE 05 PAGE 



56 



* J. » 



• • 



SEND AND TEST MCH 



0111103 

0111103 Ot 001103 026750 



C09 



01 
-001- 02 



ZMINT 



DATA IMINTX 



0:40:27 2/06/81 **** 
CSYSUB W77D 
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D09 



TEST MCH STATE 







-002- 01 * 






-002- 02 * 






-002- 03 * 






-002- 0A * 


05 


* 


DESCRIPTION: 


06 


ft 


GATE MCH STATUS BITS TO RO FOR TESTING 


07 


* 




08 


A 


ENTRY POINT: 


09 


* 


TMCH 


10 


* 




11 


* 


ENTRY CONDITIONS: 


12 


* 


NONE 


13 


* 




1* 


* 


EXIT CONDITIONS: 


15 


* 


RO ■ RETURN CODE 


16 


* 


0— MCH COMPLETE WITHOUT AN ERROR 


17 


* 


1— MCH FAILURE 



TEST MCH STATE 



0:40:27 2/06/81 **** 
CSYSUB W77D 



0111104 
0111104 

0111104 01 001104 172442 

0111105 01 001105 072463 

0111106 01 001106 012417 

0111107 01 001107 015463 

0111110 01 001110 003462 000004 

0111112 01 001112 003044 

0111113 01 001113 012320 

0111114 

0111114 01 001114 013400 

0111115 

0111115 01 001115 031760 

0111116 

0111116 01 001116 016730 

0111117 

0111117 01 001117 051463 

0111120 

0111120 01 001120 026750 

0111121 01 001121 014000 

0111122 01 001122 012360 

0111123 01 001123 072042 

0111124 01 001124 072063 

0111125 01 001125 017400 001401 

0111127 

0111127 01 001127 055002 0111131 

0111130 01 001130 056460 





21 TMCH 












22 


BEGIN 








23 


HN 


R2,2 


t 


SAVE R2 AND R3 




24 


HN 


R3,3 








P« 


UNPK 


SS 


» 


GET VALUE OF BIN 




COM 


R3 


* 


COM BIN 




27 


NI 


R3,M(BIN) 


n 


BIN WILL NOW BE SET AND RESET ONLY IF IT 
WAS 




29 


LN 


R2,E(S(BPC)-16) 








30 


PACK 


SS S 


tt 


BLOCK PARITY CHECK 




31 


MIMODE 






nm- 


32 


MI 











33 


L 


CR,NOP 


n 


ZERO CR BECAUSE TMCH OR'S MCHC ON TOP OF 


001- 


34 
35 


TMCH 


VFD 8,CRXT 8,N0PXF 






001- 


36 




DATA TMCHX 








37 


L 


RO,CR 




;. 


001- 


38 




VFD 8,R0XT B,CRXF 








39 


ZMINT 






001- 


40 




DATA ZMINTX 








41 


NR 


RO,RO 


# 


CORRECT PARITY 




11 


PACK 


SS R 


# 


RESTORE PARITY CHECK 




GN 


R2,2 


# 


RESTORE R2 AND R3 




44 


GN 


R3,3 








45 


CIRM 


RO,ES(MCHCP),0,ES(MCH 












ERROR 




47 


IF 


CF THEN RETURN 




. 


•002- 


48 


BNC IFS577 




. 


•003- 


49 


BTSAN 




■ 
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E09 



TEST MCH STATE 



0111131 
0111131 

0111131 01 001131 171*20 

0111132 

0111132 01 001132 013000 

0111133 01 001133 154330 

0111134 01 001134 031400 043026 CTSD 

0111136 01 001136 061700 

0111137 

0111137 01 001137 056441 



-002- 

-002- 

-001- 
-002- 



01 
02 
03 
04 
05 
06 
07 
08 
09 
001- 10 



IFS577 



BEGIN 

HA 

MIMODE IDLMCH 

HIS 

DATA IDLMCHX 

LAL R0,STSTATE,RA1 

SBS 0(RA1),S(MCH_00S) 

RETURN 1 

BTSA6N 1 



0:40:27 2/06/81 **** 
CSYSUB H77D 

U BECAUSE IT DID NOT COMPLETE NORMALLY 
* MARK MCH OUT-OF-SERVICE 
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F09 



SEND AND TEST BACKUP MAINTENANCE CHANNEL 



0:40:27 2/06/81 **** 
CSYSUB W77D 



05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 



-002- 01 


* 


-002- 02 


* 


-002- 03 


* 


-002- 04 


* 



SEND AND TEST BACKUP MAINTENANCE CHANNEL 



DESCRIPTION: 

USED TO SEND ORDERS TO THE OTHER CC VIA THE SO CALLED 

BACKUP MAINTENANCE CHANNEL. IN REALITY THIS MODE USES 

THE OTHER STORE WRITE FACILITY AND THE OTHER CC 

INTERRUPT. 

ENTRY POINT: 
SBUMCH 

ENTRY CONDITIONS: 
RO ■ FUNCTION COOK 

0— SPARE 

1— STOP 

2— COMPLETE NORMAL SWITCH 

3--CLEAR PROGRAM TIMER 
Rl = DATA TO PASS (IF ANY) 

EXIT CONDITIONS: 
RO = RETURN CODE 

0— SUCCESS 

1— FAILURE, NO RESPONSE OR OTHER STORE ERROR 



0111140 
0111140 

0111140 01 001140 171420 -002- 

0111141 01 001141 030440 043026 CTSD 

0111143 01 001143 024052 CBLM 

0111144 

0111144 01 001144 055002 0111146 -002- 

0111145 01 001145 056441 -003- 

0111146 -002- 



0111146 01 001146 103040 

0111147 01 001147 035440 043342 CTSD 
0111151 

E0111151 01 001151 000420 -001- 

0111152 01 001152 136100 -001- 

0111153 

0111153 01 001153 055002 0111155 -002- 

0111154 01 001154 056441 -003- 

0111155 -002- 



29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



SBUMCH 

BEGIN 
HA 

LL R2,SYSTATE 
TBN R2,S(MAS OOS) 
IF CF THEN RETURN 1 
BNC IFS594 
8TSAGN 1 
IFS594 

K SBUMCH MAY BE CALLED EARLY IN INITIALIZATION WHEN MCHFCN MAY 
BAD PARITY HENCE THE ZR-STAL RATHER THAN AN LAL TO 



STILL HAVE 
SET VP RA1 
ZR 

STAL 
STOS 
MSTF 
DATA 
IF 



IFS598 



R2 

R2,MCHFCN,RA1 

0(RA1) 

(KRAI) 

8(1011110001000000) 

CF THEN RETURN 1 
BNC IFS598 
BTSAGN 1 
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API 



SEND AND TEST BACKUP MAINTENANCE CHANNEL 



0:40:27 2/06/81 **** 
CSYSUB W77D 



0111155 01 
0111156 
E0111156 01 
0111157 01 
0111160 

0111160 01 

0111161 01 
0111162 

0111162 01 



001155 106001 -- 

001156 000421 — 

001157 136100 •-- 

001160 013000 -- 

001161 016750 — 

001162 056440 — 



01 


LR R0,R1 


02 


STOS KRA1) 


-001- 03 


MSTF 1<RA1) 


-001- 04 


DATA BC1011110001000000) 


05 


HIMODE IOCC 


-001- 06 


HIS 


-002- 07 


DATA IOCCX 


OS 


RETURN 


-001- 09 


BTSAGN 
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SYNCHRONIZE BASE LEVEL WITH INTERRUPTS 



BQ1 



0:40:27 2/06/81 **** 
CSYSUB W7/D 



05 
06 

07 

08 

09 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

2A 

25 

26 

27 



-002- 01 
-002- 02 
-002- 03 
-002- 04 



ft 

* 

ft 
ft 



SYNCHRONIZE BASE LEVEL WITH INTERRUPTS 



DESCRIPTION: 

THIS SUBROUTINE ALLOWS 



a A BASE LEVEL PROGRAM TO SYNCHRONIZE 
ilTH TOT TI WWAUT A TIMED INTERRUPT). IT IS USED WHEN 
THE PROGRAM MUST EXECUTE A SIGNIFICANT AMOUNT OF CODE 
WITHOUT BEING INTERRUPTED. TO AVOID INTERRUPTS 

Sitter % ^ '^t^ % ^^^v^^ • to avoid this 
J the T program H can T ?h T eckVhat It has sufficient time TO COMPLETE 

AND THEN BLOCK INTERRUPTS KNOWING IT WILL NOT DELAY 
THE NEXT ONE. 

ENTRY POINTS: 
INSYNC 

^Y^NSTA^WHICH CONTAINS 1'S WTHtWT 

POSITIONS WHERE THE TI WILL BE REQUIRED 

TO HAVE O'S BEFORE INSYNC WILL RETURN. ,„..„, UILL 
dure RTT 5 OF THE TI CORRESPONDS TO 1.25 MS, RO-EW) WILL 
GUARANTEE AT LEAST 1.25 MS BEFORE THE NEXT TIMED INTERRUPT. 



EXIT CONDITIONS: 

INTERRUPTS ARE BLOCKED (BIN IS SET) 



0111163 

0111163 01 001163 172442 

0111164 01 001164 072463 

0111165 01 001165 072504 

0111166 

0111166 

0111166 01 001166 113002 

0111167 01 001167 107322 

0111170 

0111170 01 001170 013002 

0111171 01 001171 105722 

0111172 

0111172 01 001172 112400 

0111173 01 001173 006103 

0111174 01 001174 012400 

0111175 01 001175 020103 „,.,,,„ 

0111176 01 001176 055774 0111172 

0111177 01 001177 014060 



30 


INSYNC 




31 


BEGIN 


(R2,R3,R4) 

R2,2 


002- 32 


HN 


002-;33 


HN 


R3,3 


002- 34 


HN 


R4,4 


35 


INSYNCLP 




36 


ZBIN 




■001- 38 


MIS 


2 


•001- 39 


OATA 


36562 


40 


SBIN 




■001- 41 


MIS 


2 


-001- 42 


DATA 


35794 


43 


GETTI 




-001- 44 


UNPK 


TI 


-001- 45 


LR 


R4,R3 


-001- 46 


UNPK 


TI 


-001- 47 


CR 


R4,R3 


-001- 48 


BNC 


TRY614 


49 


NR 


R3,RD 



H ALLOW INTERRUPTS TO OCCUR THAT ARRIVED 
DURING LAST LOOP 



n IS THERE ENOUGH TIME BEFORE NEXT INTERRUPT 



COMMON SYSTEM SUBROUTINES 

0:40:27 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET 



CSYSUB 



PR-1C956-50 
ISSUE 05 PAGE 



62 



• • 



SYNCHRONIZE BASE LEVEL WITH INTERRUPTS 



0111200 01 001200 055766 0111166 

0111201 

0111201 01 001201 072042 

0111202 01 001202 072063 

0111203 01 001203 072104 

0111204 01 001204 056400 



jcpj. 



01 


BNC 


INSYNCLP 


02 


RETURN 




-001- 03 


GN 


R2,R2 


-001-;04 


GN 


R3,R3 


-001- 05 


GN 


R4,R4 


-001- 06 


BTSA 





Ot40:27 2/06/81 **** 
CSV;UB H770 
It IF NOT, LET INTERRUPTS OCCUR AND TRY AGAIN 
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001 



DETERMINE CURRENTLY ACTIVE INTERRUPT 



0:40:27 



2/06/81 **** 



CSYSUB 



W77D 



DETERMINE CURRENTLY ACTIVE INTERRUPT 



05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 



-002- 01 * 

-002- 02 * 

-002- 03 * 

-002- 04 * 
DESCRIPTION: 

DETERMINE FROM WHICH INTERRUPT THIS SUBROUTINE 
HAS BEEN CALLED. 

ENTRY POINT: 
INTCHK 

ENTRY CONDITIONS: 
NONE 

EXIT CONDITIONS: 

RO = NUMBER OF CURRENTLY ACTIVE INTERRUPT (16 - BASE LEVEL) 






0111205 
0111205 

E0111205 01 001205 121034 

0111206 01 001206 015421 

0111207 01 001207 030400 043021 CTSD 

0111211 01 001211 014420 

0111212 01 001212 003401 000020 
0111214 01 001214 020420 



0111215 

0111215 01 001215 056400 



20 


INTCHK 








21 




BEGIN 





22 




LRS 




R1,IM 


23 


R1 


B 




- R1 I IM IMAGE 


004- 24 






COM 


R1,R1 


004- 25 






LL 


RO,IM_IMAGE 


004- 26 






OR 


R1,R0 


27 


RO 


■ 




16 


004- 29 






LI 


R0,16 


30 




FLZ 




R1,R0 


33 




RETURN 




001- 34 




BTSA 





» INIT TO BASE LEVEL—IF FLZ FAILS RO IS 
LEFT UNCHANGED 

U DETERMINE HIGHEST PRIORITY (LOWEST NUMBER) 
BIT THAT IS CURRENTLY BUT NOT NORMALLY 
BLOCKED 



■ 
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EXECUTE A SERIES OF MCH ORDERS 



J21 



0:40:27 2/06/81 **** 
CSYSUB W77D 



0111216 

MCH0BBI5 
00 1 



EXECUTE A SERIES OF MCH ORDERS 



05 


* 


06 


* 


07 


* 


08 


* 


09 


* 


10 


A 


11 


* 


12 


* 


11 


* 


14 


* 


15 


* 


16 


* 


1/ 


* 


18 


* 


19 


* 


20 


* 


21 


A 


22 


* 


23 


* 


24 


* 


25 


* 


26 


* 


27 


* 


28 


* 


29 


* 



-002- 01 * 

-002- 02 * 

-002- 03 * 

-002- 04 * 
DESCRIPTION: 

EXECUTE A SERIES OF MCH ORDERS AS SPECIFIED IN 
A TABLE. EACH TWO WORD TABLE ENTRY IS AN ORDER. 
THE ORDERS ARE EXECUTED SEOUENTIALLY. 

ENTRY POINTS: 

EXCMCH TABLE ONLY 

EXCMCHO— OPTIONAL FIRST ORDER PLUS TABLE 

ENTRY CONDITIONS: 

RA1 ■ TABLE ADDRESS MINUS ONE 

R1 = TABLE LENGTH 

R2-R3 * OPTIONAL FIRST ORDER (EXCMCHO ONLY) 

EXIT CONDITIONS: 
RO = RETURN CODE 

0— SUCCESS 

1— FAILURE ON SOME MCH TRANSMISSION 

RESTRICTIONS: 

ORDER ENTRIES MUST BE IN THE FOLLOWING FORMAT: 

W0RD0C11-4)— 8-BIT MCH ORDER 

W0RD0(3-0>— MOST SIGNIFICANT-BITS OF A 20 BIT CONSTANT 

W0RD1 (15-0)— LEAST SIGNIFICANT-BITS OF A 20 BIT CONSTANT 

FIRST ORDER MAY NOT BE LDMIRL UNLESS OFF-LINE CC IS ALREADY STOPPED 



011 
I 



j *********************** J „i._ 



33 



MCHORDER_PICTURE 



.+=2l!I:S£=8_!12BI_a£H-OREE8. 



i w"r"i r- t is i w i w i * w 



0111216 
0111216 

0111216 01 
0111217 

0111217 01 

0111220 01 

0111221 01 
0111223 
0111223 01 



001216 171420 -002- 

001217 141441 

001220 041461 

001221 036020 111225 0111225 

001223 056440 -001- 



TT— T" g" 


T — 7 — T 


44 EXCMCH 




45 BEGIN 




46 HA 




47 EXCMCHMG 




48 LA 


R2,1(RA1) 


49 LA 


R3,1(RA1) 


50 BX 


R1,EXCMCHLP 


51 RETURN 





52 BTSAGN 






f 1 4 I 3 I 1 I 1 — TT 
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EXECUTE A SERIES OF MCH ORDERS 



f01 



0:40:27 2/06/81 **** 
CSYSUB W770 



0111224 
0111224 
0111224 
0111225 
0111225 
0111225 
0111226 
0111227 
0111230 
0111230 
0111231 
0111232 
0111232 
0111233 
0111233 
0111234 
0111234 



01 



001224 171420 

001225 124054 

001226 054002 0111230 

001227 012000 

001230 110444 

001231 006002 

001232 073027 

001233 154764 0111217 

001234 056441 





01 


EXCMCHO 






02 




ABEGIN 




-001- 


03 




HA 






04 


EXCMCHLP 






ns 




IF " NOLOTR THEN PACK 


MCHTR 


-004- 


06 




TBN NOLOTR, S(NOLDTR) 


-0'2- 


07 




BC IFS646 




-002- 


08 




PACK MCHTR 


1 


-002- 


n? 


IFS646 








m 




RRN R2,4 


H ALIGN MCH 




11 




LR R0,R2 


K SET UP FOR 




1? 




CALL SMCH 


n SEND ORDER 


-001- 


13 

14 




BSAI SXMCH 

IF CF THEN B EXCMCHMG 


# SUBROUTINE 


-002- 


15 




BC EXCMCHMG 






16 




RETURN 1 




-001- 


17 




BTSAGN 1 





SMCH SUBROUTINE 

SMCH IS IN PROGRAM CSYSUB 
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INITIALIZE OFF-LINE CC AND POSSIBLY BEGIN EXECUTION OF AN OFF-LINE PROGRAM 



07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 



0:40:27 2/06/81 
CSYSUB 



W77D 



-002- 
-002- 

-002- 

-002- 



01 
02 

04 

06 



INITIALIZE OFF-LINE CC AND POSSIBLY BEGIN EXECUTION OF AN 
OFF-LINE PROGRAM 



* DESCRIPTION: 

* INITIALIZE OFF-LINE CC AND START IT EXECUTING AT A GIVEN ADDRESS 
* 

* ENTRY POINT: 

* EXCOFLPG 

* INIT.OCC 
* 

* ENTRY CONDITIONS: 

* RA1 ■ STARTING ADDRESS OF OFF-LINE PROGRAM (EXCOFLPG ONLY) 

* EXIT CONDITIONS: 

* SEE EXIT CONDITIONS FOR SUBROUTINE EXCMCH 



0111235 22 EXCOFLPG 

0111235 01001235 103401142561 23 LI 

0111237 01 001237 053003 0111242 24 B 



R0,SARIXT*E<8) lARXF It FETCH FIRST OP 
EXCOFLMG 



0111240 

0111240 01 001240 103401 170360 



28 INIT.OCC 

29 LI 



ro,nopx 



0111242 
0111242 
0111242 

0111242 01 

0111243 01 

0111244 01 
0111246 01 

0111250 01 

0111251 01 



001242 171420 

001243 006100 

001244 003441 004620 
001246 016056 000017 

001250 006077 

001251 03UV0 111266 0111266 



0111253 

0111253 01 001253 037020 111224 0111224 

0111255 

0111255 01 

0111256 01 
0111260 01 

0111262 01 
0111263 

0111263 0" 001263 037020 111224 0111224 



001255 155010 01 '.1265 

001256 031420 111331 0111331 
001260 003441 000720 
001262 006064 





31 


EXCOFLMG 


§ 




32 




» 




33 


BEGIN 




002- 


3* 


HA 






35 


LR 


R4,R0 * 




36 


LI 


R2,LDMCHB*C(4> » 




37 


IRM 


R2,RA1,MSK(4) # 




38 


l.R 


R3,RA1+1 




39 


LAL 


R1,0FLPGT8L,RA1 # 




41 


CALL 


EXCMCHO 


001- 


42 


BSA 


EXCMCHO 




43 


IF 


CF THEN RGBEGIN * 


002- 


44 


BNC 


IFS663 




45 


LAL 


R1,0FLPGTBL1,RA1 




46 


LI 


R2 / LDMIRL*E(4) # 




47 


LR 


R3,R4 * 




48 


CALL CXCMCHO 


001- 


49 


BSA 


EXCMCHO 



n EXTRA ORDER IS NOT REQUIRED 

SPECIAL ENTRY POINT USED ONLY BY CBLM 
R0=SS_RXT*E(8) lARX, R15=ES (ISC1 / ISC2) 



SAVE ORDER TO BE EXECUTED BETWEEN TABLES 
MCH ORDER TO BUFFER ADDRESS IN MCHB 
MOVE ADDRESS INTO POSITION FOR EXCMCHO 

RA1=A0DRESS OF ORDER TABLE, R1=t.ENGTH OF 
TABLE 



DO SECOND HALF ONLY IF FIRST HALF SUCCEEDED 



EXECUTE MICRO INSTRUCTION BETWEEN TABLES 
POSITION MICRO INSTRUCTION 
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A02 

INITIALIZE OFF-LINE CC AND POSSIBLY BEGIN EXECUTION OF AN OFF-LINE PROGRAM 



0:40:27 2/06/81 **** 
CSYSUB W77D 



0111265 
0111265 
0111265 
0111265 01 001265 156420 



01 RGEND 

-001- 02 IFS663 

03 RETURN 
-001- 04 BTSAG 



0111266 



0111266 01 001266 

0111267 01 001267 
0111271 01 001271 
0111273 01 001273 
0111275 01 001275 
0111277 01 001277 

0111301 01 001301 
0111303 01 001303 
0111305 01 001305 
0111307 01 001307 
0111311 01 001311 
0111313 01 001313 



000021 

001520 000000 
006420 000000 
000720 016466 
000720 130631 
004620 000016 



000720 
000720 
004320 
000720 
000720 
004620 



105631 
015471 
007777 
145330 
146330 
030260 



0111315 01 001315 000720 070631 
0111317 01 001317 000720 145312 
0111321 01 001321 004620 111326 0111326 



10 OFLPGTBL * USED BY EXCOFLPG 

11 n THE SEQUENCE OF THE FOLLOWING ORDERS IS VERY IMPORTANT. 
TttF OFF-LINE CC MUST BE STOPPED AND THE MS REGISTER ZEROED BEFORE THE 
LDMIRL ORDER IS GUARANTEED TO WORK. THIS CAN BE DONE WITH DIRECT MCH 
ORDERS. THE CC FLIP-FLOP MUST BE CLEARED BEFORE THE PT CAN 
BE RESET. TO PROTECT AGAINST THE POSSIBILITY OF THE PT ALREADY 
CONTAINING A TIMED-OUT VALUE, THE BTC FLIP-FLOP IS SET BEFORE 
THE CC FLIP-FLOP IS CLEARED. ALL ERROR SOURCES MUST BE CLEARED 
BEFORE THE MCH INITIALIZATION SEQUENCER IS CLEARED (VIA IDSWQ CROSSPOINT). 
THE MAIN MEMORY SEQUENCER MUST BE INITIALIZED (BRXMMS) BEFORE THE MEMORY 
IS ACCESSED (L SARI,MCHB). THIS IS ALSO TRUE OF SETTING THE DR (SDR). 
BIN SHOULD NOT BE RESET (L SS R,MCHB) UNTIL THE IM HAS BEEN LOADED 
BECAUSE TRANSIENTS IN THE CLEAR AND GATE MAY PRIME AN INTERRUPT. 
THE REMAINING INITIALIZATION MAY OCCUR ANYWHERE BEFORE THE FREEZE (LDMAR). 
THE ER AND THE BHC FLIP-FLOP MUST BE CLEARED AFTER THE 
FREEZE SINCE IT IS POSSIBLE FOR THIS OPERATION TO GENERATE 
SPURIOUS ERRORS. THIS IS POSSIBLE FOR THE ER SINCE A 
DIRECT MCH ORDER EXISTS TO PERFORM THIS OPERATION. HOWEVER, 
THE BHC CANNOT BE CLEARED AFTER THE FREEZE AND HENCE 
MUST BE LEFT SET BY THIS SUBROUTINE. IF DESIRED, IT 
MUST BE CLEARED BY EXECUTING CODE IN THE OTHER CC. 
THE MSTART MUST OF COURSE BE THE LAST ORDER. 



12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 

39 

40 
41 
42 
43 
44 

46 
47 
48 









DATA 
ADDR 
ADDR 
ADDR 
ADDR 
ADDR 

ADDR 
ADDR 
ADDR 
ADDR 
ADDR 
ADDR 

ADDR 
ADDR 
ADDR 



ENTRIES (OFLPGTBL) 
0,CLMSR 
0,MSTOP 
IMT«,LDMIRL 



n CLEAR MAINTENANCE STATE REGISTER 

# STOP OCC, MUST BE DONE BEFORE ANY LMIRL 

# CLEAR DECODER MAINTENANCE STATES 
ARXT*E(8)lMCHBXF, LDMIRL # SAVE STARTING ADDRESS 
ES(BHC,BIN,BTC),LDMCHB # BLOCK ERRORS WHILE INITIALIZING AND 

FREEZING 
SS SXT*E(8)lMCHBXF,LDMIRL 
SDRX,LDMIRL 
X(FFF),LDMIRH 
ZIX,LDMIRL 

ES(BDSR1?BDSR0,REV1,RW1,RW0),LDMCHB # INIT FOR MMSR (NO ISOLATE 

OR UPDATE) 
BRXT*E(8)lMCHBXF, LDMIRL # NEED TO GO THROUGH BR TO GET TO MMSR 
ppyMMC % LDMIRL 

HALTADMCHB » POINT PA AT A HALT INSTRUCTION BECAUSE IT 
' WILL BE EXECUTED AFTER A PIE FROM AN 
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INITIALIZE OFF-LINE CC AND POSSIBLY BEGIN EXECUTION OF AN OFF-LINE PROGRAM 



0111323 01 001323 000720 113231 

0111325 01 001325 004620 

0111326 

0111326 01 001326 0565*0 

01.11327 01 001327 000720 017231 

0000041 



0:40:27 2/06/81 **** 
CSYSUB W77D 



02 

03 

04 HALT 

05 



ADDR 
DATA 



INTERRUPT 
[^^i 8 E ) (i5 CH8XF ' LDM "sENO HALT OP-CODE TO BE EXECUTED 



HALT 



# THE DATA AND HALT OPERATIONS FORM ONE 
TABLE ENTRY 

07 ADDR SIR*T*E<8)lMCHBXF,LDMIRL # SIR='HALT' 

08 ENTRIES (OFLPGTBL) EQ.U <*-0FLPGTBL-1)/2 



0111331 

0111331 01 

0111332 01 
0111334 01 
0111336 01 
0111340 01 
0111342 01 
0111344 01 
0111346 
0111346 01 

0111350 01 
0111352 01 



001331 000015 

001332 004620 042160 CINIT 
001334 000720 032631 
001336 004637 157577 CINIT 
001340 000720 103631 
001342 004635 034065 
001344 000720 107231 

001346 006120 000000 



001350 
001352 
0111354 01 001354 
0111356 01 001356 
0111360 01 001360 
0111362 01 001362 



004620 000010 
000720 107231 
000720 026712 
002320 000037 
003120 000000 
006220 000000 

0000025 



1? 
13 
14 
15 
16 
17 
18 
19 
20 
21 

23 
24 
25 
26 
27 
28 



0FLPGTBL1 

DATA 
ADDR 
ADDR 
ADDR 
ADDR 
ADDR 
ADDR 

ADDR 

ADDR 
ADDR 
ADDR 
ADDR 
ADDR 
ADDR 



HgIrEA S + 0?L L HGADM?HB § ALLOCATE 7 LEVELS TO OFF-LINE PROCESSING 
HGXT*E(8)IMCHBXF,LDMIRL '# INIT HG REGISTER 
OFL IM,LDMCHB 

SS RXT*E(8)IMCHBXF,LDMIRL # ZERO SS CONTROL BITS 

- » ESSENTIAL BITS INCLUDE BIN,MINT,CC 

n cLPT # CLEAR POSSIBLE ERROR SOURCE BEFORE 

' SEQUENCER 

SrRXTiEWlMWBXFADMIRL It RESET BTC NOW THAT PT IS ZEROED 
IDSW<JX,LDMIRL It CLEAR MCH INIT SEQUENCER 
CLNSTRT+1ADMAR » FREEZE STARTING MICRO PROGRAM ADDRESS 
CLER 
o',MSTART * START THE OFF-LINE CC 



INIT 



29 ENTRIES (0FLPGTBL1) EQU (*-0FLPGTBL1-1 )/2 
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TIME CHECK 



C02 



0:40:27 2/06/81 **** 
CSYSUB W77D 



TIME CHECK 



05 


* 


06 


* 


07 


ft 


08 


* 


09 


ft 


10 


ft 


11 


ft 


12 


ft 


13 


ft 


14 


ft 


15 


ft 


16 


ft 


17 


ft 


18 


ft 


19 


ft 


20 


ft 


21 


ft 


22 


ft 


23 


ft 


24 


ft 


25 


ft 


26 


ft 


27 


ft 


28 


ft 


29 


ft 


30 


ft 


31 


ft 


32 


ft 


33 


ft 


34 


ft 


35 


ft 



-002- 01 * 

-002- 02 * 

-002- 03 * 

-002- 04 * 

INDICATES WHEN A SPECIFIED PERIOD OF TIME HAS PASSED 

SINCE A COMPANION SUBROUTINE (SEE TIMOUT) WAS CALLED, 

IE, THE SPECIFIED NUMBER OF 25-MS INTERVALS OR MORE 
HAS OCCURRED. 

ENTRY POINT: 
TIMCHK 

ENTRY CONDITIONS: .„ „„ 

RO = TIMOUT CONSTANT CONSTANT PREVIOUSLY GENERATED BY 
SUBROUTINE TIMOUT. THIS SUBROUTINE SHOULD BE CALLED BY THE 
CHKTIM MACRO 

EXAMPLES: CHKTIM 

-1- CALL TIMCHK 

CHKTIM TSADDR=XX 
-1- LL RO,XX 
-1- CALL TIMCHK 

EXIT CONDITIONS: 

CF * 1 FOR NO TIME-OUT 

CF = FOR TIME-OUT 

TIMOUT C TAKES PLACE ONLY AFTER AT LEAST SPECIFIED PERIOD OF 
TIME HAS PASSED 

LET P = PERIOD OF TIME BETWEEN TIMOUT CHECKS, COMMONLY 
THE LENGTH OF A BASE LEVEL SCAN, THEN: 
0<ERROR<P 






0111364 
0111364 
0111364 
0111366 
0111367 
0111370 
0111371 
0111371 
0111371 
0111372 
0111372 



01 001364 130420 043461 CTSD 

01 001366 005020 

01 001367 024037 

01 001370 055002 0111372 



01 001371 056460 



39 TIMCHK 
40 
41 
42 
43 
44 
45 
46 
-001- 47 

48 TMOUT 
49 



BEGIN 

LL 

SR 

TBN 

BNC 

RETURN 
BTSAN 



o 

R1,SYSTIM 
R1,R0 
R1,15 
TMOUT 






RETURN 1 



It R1=SYSTIM' CSYSTIM+TIMOUT+1) 

K HAS TIMOUT OCCURRED 

df TIMOUT HAS NOT OCCURRED, SET CF*1 

# TIMOUT HAS OCCURRED, SET CF=0 
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TIME CHECK 



COMMON SYSTEM SUBROUTINES 



D02 



0111372 01 001372 154461 -001- 01 BTSAN 1 



0:40:27 2/06/81 **** 
CSYSUB W770 



PR-1C?56-50 
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SET UP TIME-OUT CONSTANT 



EQ2 



:27 2/06/81 **** 
CSYSUB W77D 



SET UP TIME-OUT CONSTANT 



OS 


ft 


06 


ft 


07 


ft 


08 


ft 


09 


* 


10 


ft 


11 


ft 


12 


ft 


13 


ft 


14 


ft 


15 


ft 


16 


ft 


17 


ft 


18 


ft 


19 


ft 


20 


ft 


21 


ft 


22 


ft 


23 


* 


24 


ft 


25 


ft 


26 


ft 


27 


ft 


28 


ft 


29 


ft 


30 


ft 


31 


ft 


32 


ft 


33 


ft 


34 


ft 


35 


ft 



MACRO + TIMOUTX 



-002- 01 * 

-002- 02 * 

-002- 03 * 

-002- 04 * 
DESCRIPTION: 

GENERATES A TIMING CONSTANT FOR USE BT A COMPANION 
SUBROUTINE (SEE TIMCHK). 

ENTRY POINT: 

TIMOUT LOAD RO FROM DATA WORD ASSEMBLED BY BGNTIM 

TIMOUTX— ENTRY CONDITION AS STATED BELOW 

ENTRY CONDITIONS: 

RO = NUMBER OF 25 MS INTERVALS DESIRED TO BE TIMED+1 . 

THE +1 INSURES THAT THE TIMED INTERVAL IS NEVER 

FRACTIONALLY SHORTER THAN THE INTENDED TIME. THIS SUBROUTINE 

SHOULD BE CALLED BY THE BGNTIM MACRO. 

EXAMPLES: BGNTIM MIN=2, SEC=30 

-1- CALL TIMOUT 
-1- DATA 6001 

BGNTIM MSEC=200,TSADDR=XX 
-1- CALL TIMOUT 
-1- DATA 9 
-1- STL RO,XX 

THE CSADOR PARAMETER ON THE BGNTIM MACRO CAUSES THE 

TIMING CONSTANT TO BE STORED IN TEMPORARY STORE AS IN THE 

SECOND EXAMPLE. 

THE MINIMUM REQUESTED TIME IS 25 MS 

THE MAXIMUM REQUESTED TIME IS 13 MINUTES 

EXIT CONDITIONS: 

RO = TIMING CONSTANT 



39 TIMOUTX 

40 BEGIN 

41 HA 

42 B 



0111373 
0111373 

0111373 01 001373 171420 "002- 

0111374 01 001374 053010 0111404 

0111375 *♦ TIMOUT 
0111375 ... fj 

0111375 01 001375 171420 -001- 46 

0111376 ««, il 

0111376 01 001376 072340 -001- 48 

0111377 01 001377 072361 -001- 49 



TIMOUTMERGE 



ABEGIN 

HA 

GRTNADR RA1 

GN RA1,0 

GN RA1+1,1 



COMMON SYSTEM SUBROUTINES 

0:40:27 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET 



CSYSUB 



PR-1C956-50 
ISSUE 05 PAGE 



72 



• • 



F02 



SET UP TIME-OUT CONSTANT 



0111400 01,001400 040*00 

0111401 01 001401 041421 

0111402 

0111402 01 001402 072740 

0111403 01 001403 072761 

0111404 

0111404 

0111404 01 001404 112400 

0111405 01 001405 006103 

0111406 01 001406 012400 

0111407 01 001407 020103 

0111410 01 001410 055774 0111404 

0111411 01 001411 003462 177400 
0111413 01 001413 003460 152000 BLMMA 

0111415 01 001415 010470 

0111416 01 001416 030420 043461 CTSO 

0111420 01 001420 001423 

0111421 01 001421 001401 

0111422 

0111422 01 001422 056420 



0:40:27 2/06/81 **** 
CSYSUB H77D 





01 


L 


R0,0(RA1) 




02 


LA 


R1,1(RA1> 




03 


HRTNADR 


RA1 


001- 


04 


HN 


RA1,0 


001- 


05 


HN 


RA1+1,1 




06 


TIMOUTMERGE 






07 


6ETTI 




001- 


08 


UNPK 


TI 


001- 


09 


LR 


R4,R3 


001- 


10 


UNPK 


TI 


001- 


11 


CR 


R4,R3 


001- 


12 


BNC 


TRY688 




13 


NI 


R3,MSK<8,8) 




14 


SI 


R3,PTRESET 




15 


RRN 


R3,8 




17 


LL 


R1,SYSTIM 




18 


AR 


R1,R3 




19 


AR 


R0,R1 




20 


RETURN 




■001- 


21 


BTSAG 





# GET CONSTANT 

# INCREMENT ADDRESS 
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« NUMBER OF 25-MS INTERVALS SINCE THE LAST 
SYSTIM UPDATE 



R0=(SYSTIM+TIM0UT+1) 
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PRINT REPORT ERROR TTY MESSAGE 



0:40:27 2/06/81 **** 
CSVSUB W770 



05 
06 
07 
08 
0? 
10 
11 
12 
13 
14 
15 
16 
17 



-002- 01 * 

-002- 02 * 

-002- 03 * 

-002- 04 * 

DESCRIPTION: 

PRINT A MESSAGE OF THE FOLLOWING FORM: 

REPT ERR WRO A B C D E F G 

ENTRY POINT: 
REPT _ERR 

ENTRY CONDITIONS: 
R6=TTY DICTIONARY WORD 
R7-R13=RAW DATA TO BE PRINTED 

EXIT CONDITIONS: 
NONE 



PRINT REPORT ERROR TTY MESSAGE 



0111423 
0111423 
0111423 



0111423 01 001423 173053 

0111424 01 001424 101200 

0111425 01 001425 063140 

0111426 01 001426 063146 

0111427 01 001427 010033 TTYTBL 

0111430 01 001430 000307 TTYTBL 



0111431 

0111431 01 001431 156400 



-001- 
-001- 
-002- 
-002- 
-002- 
-002- 
-002- 
-002- 
-001- 



-001- 



21 REPT ERR 


22 


BEGIN 


23 


PRINT 


26 K 


MESSAGE PR 


27 H 


A mm 


28 


BSAI 


2? 


VFD 


30 


VFD 


31 


VFD 


32 


VFD 


33 


VFD 


34 


NOTE 


36 


RETURN 


37 


BTSA 



FMT=<WRD<R,E,P,T),WRD(E,R,R>,WRD,L_X,L_X,L_X,L_X,L_X,L_X,L_X,LjO 
,PACTION=A 

rOTYPE 

REPT ERR WRD xxxx xxxx xxxx xxxx xxxx xxxx xxxx 
PXMRY It SUBROUTINE PMRY IS IN PROGRAM TTYAPP 

1.1 2,0 1,0 3,1 1,0 1,1 1,0 2,0 1,0 3,0 
4,TTY0 L X 4,TTY0 L X 4,TTY0_L_X 4,TTY0_WRD 
4,TTY0"L~X 4,TTY0~L X 4,TTY0_L_X 4,TTY0_L_X 

5.2 117r*EPT 
5 11 E%RR 

THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 
CONTAINED IN GENERAL REGISTERS R6,R7,R8,R9,R10,R11,R12,R13, 



38 OUT IOD CHL=MTC ALM=* CONVERT=Y 

39 RMV INT n 

40 T"02" 

41 X This message reports that 30 Interrupts have 

42 occurred during 1 base level scan. The- number 

43 of the last interrupt is identified, the theory 

44 being that this is the one that is stuck and 

45 causing the excessive amount of interrupts. As 

46 a result of this message, the indicated interrupt 

47 1s blocked from happening again by being set to 1 

48 in the interrupt mask register (IM). X 

49 T"03" 
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PRINT REPORT ERROR TTY MESSAGE 



0111431 



_A23- 



0:40:27 2/06/81 ***** 
CSYSUB W77D 



01 n this Is the number of the suspected stuck Interrupt 

02 T"04" 

03 try to determine the reason for the stuck interrupt 

04 T"05" 

05 PR-1C956 CSTSUB 

06 .I0DEND 

07 INDEXGEN 
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B03 



0:40:27 2/06/81 ***** 
CSYSUB W77D 



003- 01 


* 


003- 02 


# 


003- 03 


A 


003- 0* 


A 



-001- 08 U SECTION TITLE 

-001- 09 ft BCD TO BINARY CONVERSION 

-001- 10 ft BINARY TO BCD CONVERSION 

-001- 11 ft CONVERT BCD ZERO 

-001- 12 # 16 OR 20 BIT ADDS AND SUBTRACTS 

-001- 13 It 20 BIT COMPARE 

-001- 14 It INTERRUPT BEGIN AND END ROUTINES 

-001- 15 It UNLOAD AND LOAD 10 CHANNEL STATE 

-001- 16 * RANGE CHECK ADDRESS 

-001- 17 ft TURN OFF WRITE PROTECT OF STORE 

-001- 18 If INITIALIZE MASC INCLUDING WRITE PROTECT 

-001- 19 If BEGIN OR STOP STORE UPDATE ._._- 

-001- 20 If UNLOAD AND LOAD MAINTENANCE CHANNEL STATE 

-001- 21 ft UPDATE OFF-LINE TEMPORARY STORE FROM ON-LINE 

-001- 22 If COPY OFF-LINE TEMPORARY STORE TO ON-LINE 

-To]! 11 It m"?IPLe"?? A ORE SSE OR PATTERN WRITE SUBROUTINE 

-001- 25 n MULTIPLE LOAD SUBROUTINES 

-001- 26 H MOVE BLOCK IN STORE 

-001- 27 # MULTIPLE STORE SUBROUTINES 

-001- 28 ft SEND AND TEST 10 

-001- 29 It SEND 10 ORDER AND RETRY ON FAILURE 

-001- 30 U SEND AND TEST MCH 

-001- 32 # SEND AND TEST BACKUP MAINTENANCE CHANNEL 
-001- 33 ft SYNCHRONIZE BASE LEVEL WITH INTERRUPTS 
-001- 34 # DETERMINE CURRENTLY ACTIVE INTERRUPT 

lo^: 11 i SSStil'SSlS SWKIkBLT BEGIN EXECUTION 0, 

-001- 37 If TIME CHECK 

-001- 38 ft SET UP TIME-OUT CONSTANT 

-001- 39 If PRINT REPORT ERROR TTY MESSAGE 



ADDRESS WORD COUNT 

000000 19 

000023 39 

000072 19 

000115 31 

000154 22 

000202 57 

000273 43 

000346 32 

000406 29 

000443 101 

000610 10 

000622 37 

000667 3 

000672 3 

000675 29 

000732 8 

000742 22 

000770 5 

000775 22 

001023 14 

001041 25 

001072 10 

001104 28 

001140 19 

001163 18 

001205 9 

001216 15 

AN OFF-LINE PROGRAM 001235 87 

001364 7 

001373 24 

001423 7 



-001- 43 If THE TOTAL LENGTH OF THIS ASSEMBLY IS 00794 
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CSYSUB W77D 



01 CSYSUB MAXSIZE 0,1432 
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PATCH HISTORY 

LISTING OF INDIVIDUAL PATCHES 

*/*/*/*/011711/*/*/*/* 



0111431 



0:40:27 2/06/81 **** 
CSYSUB H77D 
TRN0=11711 SERN0B=64948 
- 002 " 85 , mJSn HaT IN^ENTRY INTO THE INITST SUBROUTINE 

03 # TO BE USED WHEN A BOOTSTRAP IS IN PROGRESS. 

04 H THIS ENTRY IS USED BY CINIT. 

05 § THIS PATCH COORDINATES WITH TC 63274 TR 12279 

-001- 07 n"e" t U^ M .a. H^^« MM.«I HW W WWW *HH* WW N*««H* 



*/*/*/*/013874/*/*/*/* 



0111431 



. „-„..,_ TRN0=13874 SERNOB=51309 

"° 02 " 15 * WHEN A B STUCK INTERRUPT IS PROCESSED BY THE INTERRUPT 
6 U HANDLER THE ORIGINAL CONTENTS OF RO AND R1 ARE NOT 
17 It RESTORED TO THE INTERRUPTED PROGRAM. 

-001- i? n"e D *^******************^**********************************' r **** 



0111431 



26 



END 
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9 



J2L 



PATCH HISTORY 

VALUE T NAME 

10163524 S .STOP 

0115247 L XXX213 

0110237 L XXX215 

0000201 A XBITCNT 

1 J XBOP 

0026677 A XCHKTRX 

0000001 A XCLAS 

0000002 A XMAXWRD 
'CSYSUB' T XNAMEX 

0000000 A X0RGX2 

J XOWX 

J XPFTX 

•()• T XSAVREGS 

0000010 A XTA1X 

J XTCHEADX 
•PRUNE 1,1, 

" T 'T XUSX 
TT ™ T XUSING12 
•• T XUSING14 

0000002 A XWRDCNT 
CTVTAB V rgehkAdr 

14 P rgchkAdrX_XC 
S YSUB 
0000002 A AAX 

0110115 L ADD16 

0110116 L ADD20 
17 R AME 

0000161 A ARXF 
0000261 A ARXT 

16 R BAS ADR 
J BBX 

0110000 L BCDXBIN 
0110007 L BCDXBINLP 

4 R BDSRO 

4 R BDSR1 

17 R BHC 
17 R BIN 

0110023 L BINXBCD 
'X-74292 THR 



DEF/REF ATTRIBUTES AND REFERENCES 



23-22 23-17 
23-32 23-27 

1-08 
1-08 



0:40:27 2/06/81 **** 
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33-4? 



LI8NUM=10 
LIBNUM=10 



1-08 
1-08 



1-10 



23-13 24-08, 24-34, 34-25 
1-10 



17-23 
17-27 



45-34 

11-42 
12-05 



13-26 



LIBNUM=10 
LIBNUM=12 

LIBNUM=12 
LIBNU«=10 

4-01 

4-02 

W=1 S«=0 

LIBNUM=6 

LIBNUM=6 

45-48 

1-08 

4-03 
12-18 
H=1 S=14 
W=1 S=15 
W>=1 S=1 
W=1 S=2 

4-04 



1-08 
31-41 



N=0 



1-08 



CL=1 

67-23 

68-36 



LIBNUM=6 



N=0 
N=0 

N=0 

N=0 



CL=1 
CL=1 
CL=1 
CL=1 



LIBNU«=6 
LIBNUM=6 
LIBNUM=6 
LIBNUM=6 



69-18 



38-22, 68-44 

38-22, 68-44 

68-37 

24-29, 58-27, 68-37, 69-18 
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F03 



PATCH HISTORY 


VALUE 


T 


NAME DE 


U X-74258 






IV-C 






MAY, 1973' 


T 


BOTTTL 


0110715 


L 


BPAXORG 


17 


R 


BPC 


0000161 


A 


BRXT 


• 0145312 


A 


BRXMMSX 


17 


R 


BTC 


17 


R 


CC 


4 


R 


CFSAV 


4 


R 


CFSAVR 


0110725 


L 


CHKINDEX 


0000000 


A 


CIPLTRK 


0000145 


A 


CLER 


0000065 


A 


CLMSR 


0000036 


A 


CLNSTRT 


0000305 


A 


CLPT 


0110734 


L 


CLR WRDS 


0110732 


L 


CLR 16 


0110154 


L 


CMPR20 


0110025 


I 


CONCON 



— / : 

% >7 

' -:#o'«" ab 
cdefgM „« <+ 
T mmnopqr" 
n5i»--stuvv( 
xyz* t r[J* 01 * 

-CabcdefgM 

>jklnno 
pqr \ * 

tuvwxyz 
0123456789 



T CONLC 



DEF/REF ATTRIBUTES AND REFERENCES 



0:40:27 2/06/81 **** 
CSYSUB W770 



44-08 



9-03 

8-02 

44-32 

2-10 



45-39 
45-37 
19-24 
13-30 



W=i" 2 S%2 2 "n=5 A CL=1 LIBNUM=6 58-29, 69-18 
LIBNUM=6 38-26, 40-24, 40-38, 68-46 
38-28, 68-47 



N=0 

N=0 
N=0 



UIBNUM=6 
H=1 S=3 
W=1 S=14 
W=1 S=0 

9-03 
43-49, 44-15, 
S=23 2-11, 
LIBNUM=6 
LIBNUM=6 
LIBNUM=6 
LIBNUM=6 

4-06 

4-05 

4-07 
13-34 



CL=1 

CL=1 
CL=1 

44-22 
69-18 
69-27 
68-33 
69-26 
69-21 



LIBNUM=6 68-37, 69-23 
LIBNUM=6 69-18 
22-0*, 22-17, 22-24, 25-09 









LIBNUM=12 
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PATCH HISTORY 

VALUE T NAME 

<e<hplx . 
vSf^s 
-a I 
it >k 

Jotfb'd" ab 

cdefgM „*<* 

■f jklmnopqr" 

H>t«--stuvw 

xyz* l rC* ,C112 

-CABCDEFGHI 
>JKLMN0 

PQR \ S 

TUVWXYZ 
0123456789 

• T CONSC 

2 R CONST 

0110046 L CONTIN 

0111432 L CPATCH 

0112562 L CPATCH1 

0114107 L CPATCH2 

0115073 L CPATCH3 

0121236 L CPATCH7 

0000063 A CRXF 

0000063 A CRXT 

0110000 L CSYSUB 



— / 

,X >? 

+ , "'" 

3*S4r*9tJ-,]^ 

-<ABCDEFGHI 

>JKLHN0 
P«R \ S 
TUVWXYZ 
0123456789 

• T DEU.C 
7 R DIGIT5 



DEF/REF ATTRIBUTES AND REFERENCES 



0:40:27 2/06/81 **** 
CSYSUB W77D 



13-22 
13-48 
1-36 
1-37 
1-38 
1-39 
1-40 



LIBNUM=12 
13-37, 13-43, 14-01, 14-04, 14-06, 14-17, 14-20 
13-44 
33-49 



1-31 



23-17 

LIBNUM=6 
LIBNUM=6 



58-38 
58-34 



LIBNUM=12 
13-25 13-29, 13-33, 14-12 
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JfflL 



PATCH HISTORY 
VALUE T NAME 



DEF/REF ATTRIBUTES AND REFERENCES 



17 
0110063 
0110070 
0110066 
0110*20 
0110740 

TTYTBL 
CINIT 
CINIT 


1 
0111216 
0111225 
0111217 
0111224 
0111242 
0111235 
1 
0110672 
0110720 
0110353 
0111326 
0000065 
0000065 



17 
TTYTBL 
0154330 
0026712 
•ILLEGAL CON 
DITIONAL IN 
THE IF MACRO'T 
■DATA > OR 
DATA < IS 
MEANINGLESS 
, USE DATA - 

•TWO CONSTAN 

TS ARE BEING 

COMPARED IN 

IF MACRO' 1 

•AN ITEM WAS 

COMPARED TO 

SOMETHING 

THER THAN A 

CONSTANT' 

'DESTINATION 

OF AN ■ STA 



DME 

DOHUND 

DOROTAT 

DOTEN 

DOWP 

DOWRITE 

E 

EXRR 

ERPMCH 

ERRPRTCK 

ESS2 

ESS2E 

EXCMCH 

EXCMCHLP 

EXCMCHMG 

EXCMCHO 

EXCOFLMG 

EXCOFLPG 

FIELD 

GET OTS 

GET OTSLP 

GTSTRLIM 

HALT 

HGXF 

HGXT 

HGAREA 

HLT 

UNT 

IDLMCHX 

IDSWQX 



IFERR0R1 

T IFERR0R2 
T IFERR0R3 

T IFERR0R4 



0:40:27 2/06/81 **** 
CSYSUB "770 



14-16 
14-21 
14-19 
32-01 
45-48 

74-33 

6-41 

6-42 

1-10 

1-09 

65-44 

66-04 

65-47 

66-01 

67-31 

67-22 

1-09 

42-22 

44-19 

29-36 

69-04 



6-04 
24-03 



W=1 S=4 
14-05 
14-18 
14-07 
31-45 
45-45 

74-33 



rt=0 CL=1 LIBNUM=6 



69-18 



4-08 
65-50 

6 4-09, 35-02, 67-42, 67-49 
4-10, 67-24 
4-11 



4-12 

42-25 

29-30 

68-48 
LIBNUM=6 
LIBNUM=6 

69-14 
W=1 S=5 

24-03 
LIBNUM=6 
LIBNUM=6 















25-04 
25-08, 69-15 

=0 CL=1 LIBNUM=6 

59-06 
69-25 



69-18 
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B04 



PATCH HISTORY 
VALUE T NAME 



DEF/REF ATTRIBUTES AND REFERENCES 



0:40:27 2/06/81 **** 
CSYSUB W77D 



TEMENT IS A 






CONSTANT* T IFERR0R5 






'ATTEMPTING 






TO SET ITEM 






= TO SOMETHI 






N6 OTHER THA 






N A CONSTANT'T IFERR0R6 






•ITEM MAY ON 






LY USE THE * 






AND -= CONO 






ITIONALS' T IFERR0R7 






0110107 L IFS149 


16-05 


16-03 


0110165 L IFS180 


19-34 


19-32 


0110171 L IFS184 


19-40 


19-38 


0110175 L IFS188 


19-46 


19-44 


0110201 L IFS192 


20-03 


20-01 


0110276 L IFS252 


26-41 


26-39 


0110303 L IFS258 


26-49 


26-47 


0110307 L IFS261 


27-06 


27-04 


0110371 L IFS294 


30-01 


29-48 


0110374 L IFS296 


30-06 


30-04 


0110405 L IFS299 


30-16 


30-14 


0110442 L IFS319 


32-27 


32-25 


0110472 L IFS342 


34-38 


34-36 


0110512 L IFS344 


35-07 


34-44 


0110516 L IFS357 


35-13 


35-11 


0110537 L IFS362 


35-41 


35-39 


0110542 L IFS367 


35-46 


35-44 


0110565 L IFS372 


36-20 


36-14 


0111032 L IFS522 


53-06 


53-04 


0111035 L IFS525 


53-11 


53-09 


0111131 L IFS577 


59-01 


58-48 


0111146 L IFS594 


60-37 


60-35 


0111155 L IFS598 


60-49 


60-47 


0111230 L IFS646 


66-09 


66-07 


0111265 L IFS663 


68-02 


67-44 


14 R IM 




LIBNUM=6 


0000207 A IMXT 




LIBNUM=6 


CTSD V IM IMAGE 


6-30 


23-25, 


0016466 A IMTCX 




LIBNUM=6 


4 R INDEX 


13-24 


13-41, 


0000040 A INDEXCNTR 


10-48 


12-23, 
42-27, 
66-18, 



'BCD TO BINA 
RY CONVERSIO 
N' T 

•INITIALIZE 
MASC INCLUDI 



64-25 

13-47, 
14-24, 
44-39, 
69-30, 



22-36, 22-44, 23-40, 24-32, 
69-17 



64-22 



68-35 

14-02 

17-01, 19-01, 20-06, 25-13, 28-27, 30-19, 32-30, 37-05, 38-35, 40-45, 41-26, 

46-02^ 48-29' 49-29^ 51-29, 53-16, 55-39, 57-03, 59-11, 61-10, 63-07, 64-35, 

71-02, 73-22, 75-08 



INDEXTITLE1 
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C04 



PATCH HISTORY 
VALUE T NAME 



DEF/REF ATTRIBUTES AND REFERENCES 



0:40:27 2/06/81 **** 
CSYSUB W770 



NG WRITE PRO 
TECT' 

'BEGIN OR ST 
OP STORE UPD 
ATE' 

'UNLOAD AND 
LOAD MAINTEN 
ANCE CHANNEL 

STATE' 

'UPDATE OFF- 
LINE TEMPORA 
RY STORE FRO 
M ON-LINE* 
•COPY OFF-LI 
NE TEMPORARY 

STORE TO ON 
-LINE' 

'ZERO TEMPOR 
ART STORE' 
•MULTIPLE ST 
ORE CLEAR OR 

PATTERN WRI 
TE SUBROUTIN 
E' 

'MULTIPLE LO 
AD SUBROUTIN 
ES' 

'MOVE BLOCK 
IN STORE' 
•MULTIPLE ST 
ORE SUBROUTI 
NES ' 

•BINARY TO B 
CD CONVERSIO 
N' 

•SEND AND TE 
ST 10' 

•SEND 10 ORD 
ER AND RETRY 

ON FAILURE' 
•SCND AND TE 
ST MCH* 
•TEST MCH ST 
ATE' 

•SEND AND TE 
ST BACKUP MA 
INTENANCE CH 
ANNEL ' 
'SYNCHRONIZE 



T INDEXTITLE10 
T INDEXTITLE11 

T INDEXTITLE12 

T INDEXTITLE13 

T INDEXTITLE14 
T INDEXTITLE15 

T INDEXTITLE16 

T INDEXTITLE17 
T INDEXTITLE18 

T INDEXTITLF19 

T INDEXTITLE2 
T INDEXTITLE20 

T INDEXTITLE21 
T INDEXTITLE22 
T INDEXTITLE23 

T INDEXTITLE24 









' ■ 
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PATCH HISTORY 




VALUE 


T 


NAME DEF/REF 


ATTRIBUTES AND REFERENCI 


BASE LEVEL 








WITH INTERRU 








PTS' 


T 


INDEXTITLE25 




•DETERMINE C 








URRENTLY ACT 








IVE INTERRUP 








T'. 


T 


INDEXTITLE26 




•EXECUTE A S 








ERIES OF MCH 








ORDERS' 


T 


INDEXTITLE27 




'INITIALIZE 








OFF-LINE CC 








AND POSSIBLY 








BEGIN EXECU 








TION OF AN 








FF-LINE PROG 








RAM* 


T 


IN0EXTITLE28 




'TIME CHECK' 


T 


INDEXTITLE29 




•CONVERT BCD 








ZERO' 


T 


INDEXTITLE3 




•SET UP TIME 








-OUT CONSTAN 








r 


T 


INDEXTITLE30 




'PRINT REPOR 








T ERROR TTY 








MESSAGE' 


T 


INDEXTITLE31 




• t 


T 


INDEXTITLE32 




•16 OR 20 BI 








T ADDS AND S 








UBTRACTS' 


T 


INDEXTITLE4 


. 


'20 BIT COMP 








ARE' 


T 


INDEXTITLE5 




■INTERRUPT B 








EGIN AND END 








ROUTINES* 


T 


INDEXTITLE6 




'UNLOAD AND 








LOAD 10 CHAN 








NEL STATE' 


T 


INDEXTITLE7 




'RANGE CHECK 








ADDRESS' 
•TURN OFF WR 


T 


INDEXTITLE8 





D04 



0:40:27 2/06/81 **** 
CSYSUB W77D 



ITE PROTECT 

OF STORE' 

0110040 
0111240 
5 
0110443 
0110447 
0112123 



IN0EXTITLE9 

INIT 

INIT OCC 

INITH 

INITOST 

INITST 

INITSTH 



13-40 
67-28 
9-21 
33-37 
33-42 
34-01 



14-23 
4-13, 33-39, 34-12, 35-40 



W=1 S=2 
4-16 
4-14 
4-15 



N=0 CL"1 34-02, 34-29 
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PATCH HISTORY 
VALUE T NAME 



0110,463 
5 

0111163 
0111166 
0110207 
0110202 
0111205 

CTSD 
0110253 

CTSD 
0110260 
0016750 
0110332 
1 
0110326 
0110321 
0111060 
011104* 
0111055 
0000003 
0000066 
4 
4 
0000115 
0000231 



INITSTLOOP 

INITSTO 

INSYNC 

INSYNCLP 

INTBEGIN 

INTBGNX 

INTCHK 

INTCNT 

INTEND 

INTRCORD 

INTRST 

IOCCX 

IOLODMG 

IOMSGR 

IOMTC 

IONORM 

IORETRY 

IOSEND 

IOTEST 

IOWAIT 

IS RXT 

ISOO 

IS01 

LDMAR 

LDMCHB 



0000215 A LDMIRH 
0000035 A LDMIRL 



0025730 
0134072 
0110556 
0110567 
14 
0000000 
0110311 
0110643 

'CFSAVR' 

'OFLSTR' 

•OFLSTR' 

■STBUKR' 
'IOMSGR' 
•MCHORDER' 
•OFLSTR' 

'IOMSGR' 

0110042 
TDATA 



DEF/REF ATTRIBUTES AND REFERENCES 



0:40:27 2/06/81 **** 
CSYSUB M77D 



34-22 35 
9-20 W=1 

62-30 

62-35 

22-21 

22-01 

64-20 
6-32 

24-27 
6-31 

24-38 

28-09 
8-08 
28-02 
27-42 
55-14 
54-39 
55-08 
10-33 



=1 N 



9-37 



LDPAR% 

LDSTMCHX 

LDWPREGLP 

LDWPREGMERGE 

LENGTH 

LINECNT 

LODIOC 

LODMCH 

LONAM CFSAV 

LONAM INITH 

LONAM INITST 



LONAMJ.ENGTH 

LONAM MTCIO 

LONAM_NOLDTR 

LONAM OFLSTI 

NIT 

LONAM SPLIO 

LOOP 

LSTTSWRD 



36-09 

36-25 

9-51 

27-29 
40-12 



36 
S 
4-17 
63-01 
4-19 
4-20 
4-18 
22-13 
4-21 
22-25 
24-11 
LIBNUM=6 
27-49 
9-35, 
27-38 
27-37 
55-36 
54-35 
54-43 
52-46 
LIBNUM=6 
W=1 S=12 
W=1 S=13 
LIBNUM=6 
LIBNUM=6 

69-23 
LIBNUM=6 
LIBNUM=6 

68-47, 69-02, 

LIBNUM=6 

LIBNUM=6 

36-28 

36-18 

W=14 S=4 

4-23 
4-24 



l=0 CL=1 33-40, 33-43, 34-02, 35-43 



61-07 



N=0 
N=0 



22-47 
CL=1 
CL=1 

69-26 



LIBNUM=6 
LIBNUM=6 



38-22 
38-22 



34-46, 37-02, 56-30, 67-36, 68-37, 68-44, 68-48, 

37-01, 37-03, 56-36, 67-46, 68-35, 68-36, 68-39, 
69-07' 69-15' 69-17, 69-19, 69-24, 69-25 
40-26, 40-40 
56-47 



69-03, 69-14 
68-40, 68-42 



, 69-16, 69-18, 
, 68-43, 68-46, 



N=0 CL=1 



44-04, 44-05 



13-42 14-02 
6-08 
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PATCH HISTORY 
VALUE T NAME 



DEF/REF ATTRIBUTES AND REFERENCES 
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0110742 
0110753 
0110752 
0110751 
0110750 
0110766 
0110762 
0110761 
0110760 
0110757 
0110756 
0110755 
0110754 
15 

CBLM 

MASACS 
0006061 
0000361 

MASACS 
0006060 

MASACS 

MASACS 

CBLM 

3 

0000231 

0000341 





CTSD 

2 

0026472 
0164071 
0164072 
0164074 
0074072 



L2 V 

L2 10 

L2J1 

L2 12 

L2 13 

L2 2 

L2.3 

L2 4 

L2 5 

L2 6 

L2_7 

L2_8 

L2 9 

MANI 

MAS OOS 

MAS~ZERO - 

MASCINIT 

MASCINITH 

MASCIOSC 

MASCUNBK 

MASOFFON 

MASONOFF 

MCH OOS 

MCHB 

MCHBXF 

MCHCXT 

MCHCP 

MCHER 

MCHFCN 

MCHORDER 

MCHTR 

MCHTRXMCHBX 

MD1CHTNX 

MD2CHTMX 

MD3CHCX 

MD6RAI0X 



47-38 
48-04 
48-02 
47-49 
47-47 
48-25 
48-18 
48-16 
48-14 
48-12 
48-10 
48-08 
48-06 

6-23 

6-15 

10-40 

10-41 

6-16 

10-42 

6-13 

6-14 

6-24 



4-37 
4-33 
4-34 
4-35 
4-36 

4-25, 48-20 

4-26 

4-27 

4-28 

4-29 

4-30 

4-31 

4-32 

W=1 S=15 

60-33 

44-28 

34-23 

3A-37 

34-19, 34-39 
35-12 
44-21 
44-14 
59-08 
LIBNUM=6 
LIBNUM=6 
LIBNUM=6 
W=1 S=0 
W=1 S=1 
60-42 
10-18 
LIBNUM=6 
LIBNUM=6 
LIBNUM=6 
LIBNUM=6 
LIBNUM=6 
LIBNUM=6 



N=0 CL-1 LIBNUM=6 



22-43 



N=0 
N=0 



39-28, 39-29, 39-31, 39-38, 39-39, 39-41 m m 

37-01' 37-03^ 68-36' 68-39, 68-46, 69-02, 69-07, 69-15, 69-17, 69-19, 69-24 

56-45 

CL"=1 LIBNUM=6 58-45 

CL=1 LIBNUM=6 58-45 

40-17, 40-33, 66-08 

39-37, 40-28 

27-48 

28-08 

28-21 

28-18 



T$*>; 

:»a'=" ab 
edefghi n < <+ 
-f jklnnopqr* 
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■04 



PATCH MISTORr 
VALUE T NAME 

H> t«--5tUVW 

xyz» L |O ,01i 

-(ABCDEFGHI 

>JKLMNO 
PQR \ S 
TUVWXYZ 
012345678? 



DEF/REF ATTRIBUTES AND REFERENCES 



0:40:27 2/06/81 **** 
CSYSUB M77D 



17 

0111053 

0110772 

0110770 

0000215 

0000311 

0000321 

1 

0111065 

0111067 

0110146 

2 

0170360 

0000360 

CINIT 

UNIT 

0111266 

0111331 

5 

5 

0110436 



MICODETR 

MINT 

MIOSEND 

MOVST 

MOVSTLP 

MSXT 

MSTART 

MSTOP 

MTCIO 

MTCRETRY 

MTCRTN 

NODEC 

NOLDTR 

NOPX 

NOPXF 

OFL HG 

OFL IM 

OFLPGTBL 

0FLPGTBL1 

OFLSTINIT 

OFLSTR 

OFLWP 



55-04 
49-25 
49-22 



9-35 
55-23 
55-33 
18-31 
10-18 



6-43 

6-44 

68-10 

69-12 

9-17 

8-05 

32-20 



LIBNUM=6 

M=1 S=13 N=0 CL"1 LIBNUM=6 

54-47 
4-38 

49-26 
LIBNUM=6 
LIBNUM=6 
LIBNUM=6 
V=1 S=0 N»0 

55-17 

55-12 

18-29 
V=1 S=14 N=0 
LIBNUM=6 
LIBNUM=6 

69-14 

69-16 
ENTRIES"21 
ENTRIES=15 
W=1 S=0 N=0 
9-17, 9-20, 

32-10 



37-03 
69-28 
36-41, 
CL*1 



CL=1 
67-29 
58-34 



69-18 



68-34 

54-42, 55-07, 55-16 



66-06 



67-39, 68-32, 69-08 
67-45, 69-13, 69-29 
CL«1 33-40, 34-13, 
9-21 



34-18, 34-29, 34-43, 35-38, 36-13 



«.«AON 

x$*>; 
-S/ : 

,X >? 

tdfa'l" ab 
edefghi „«<♦ 
T IkUnopqr" 

xyi*'-rC*» ''* 

-<IBCLEFGHI 

>JKLMNO 
P«R \ S 
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» 






_ft2L 



PATCH HISTORY 
VALUE T NAME 



DEF/REF ATTRIBUTES AND REFERENCES 



0:40:27 2/06/81 **** 
CSYSUB W770 



LLLWLYZ 
0123456789 

0000325 
0000323 
0000345 
0000353 
0000521 
0000511 
0110577 
CTVTAB 

14 

0000226 
0000001 
0000062 
0110272 
TTYAPP 

0000000 
BLMMA 

1 



TTYTBL 

TTYTBL 

14 



OPTR 

ORG 000154 

ORG 000235 

ORG 000252 

ORG 000257 

ORG 000465 

ORG 000471 

OSTTBL 

PXMRY 

PXMRYX XTTYA 

PP 

PAXT 

PAGECNT 

PAGL 

PIERTN 

PMRY 

PRIV 

PTRESET 

PTRN 

R 

RXEPT 

RXMV 

RAO 



16 P RA1 



0110366 
17 

0111423 
1 
4 

0110351 

0110346 

• POSITION 
F SAVED CF I 
N INTERRUPT' 

• INITH=1 ME 
ANS ENTRY PO 
INT WAS INIT 
STH ' 

• INITST0=1 
MEANS ENTRY 
POINT WAS IN 



REGSUB 

REJ 

REPT_ERR 

RESULT 

REV1 

RGCHKADR 

RGCHK32 



T RMK CFSAV 



T RMK INITH 



23-23 
23-13 
24-08 
24-34 
34-25 
34-01 

36-39 ENTRIES=4 
LIBNUM=12 



LIBNUM=12 
LIBNUM=6 



34-49, 36-40, 37-04 
23-47, 74-28 



69-02 



2-10 
25-11 
23-47 



4-22 
74-28 
2-12 S=20 
6-06 73-14 
45-32 45-42, 45-48 

74-32 74-32 
24-02 24-02 

LIBNUM=3 

36-08, 36-10, 
LIBNUM=3 
18-33, 18-34, 
32-15, 32-22, 
48-05, 48-07, 
51-05, 51-07, 
61-03, 65-48, 
29-45 29-41 

W=1 S=15 N=0 
74-21 4-39 
13-21 13-38, 13-47, 
W=1 S=7 N=0 
29-32 4-41 
29-26 4-40 



2-13, 69-18 



19-27, 
43-47, 
17-31, 
18-35, 
34-49, 
48-09, 
51-09, 
65-49, 



29-37, 29 
43-48, 43 
17-33, 17 
19-28, 22 
36-16, 36 
48-11, 48 
51-11, 51 
67-37, 67 



•38, 30-07, 
■51, 43-52, 
■35, 17-36, 
■25, 22-27, 
■23, 43-47, 
■13, 48-15, 
•13, 51-15, 
■38, 67-39, 



30-09, 32-07, 
49-23 

17-37, 17-38, 
22-30, 22-31, 
43-48, 43-51, 
48-17, 48-19, 
51-17, 51-19, 
67-45, 72-48, 



32-08, 34-39, 34-40, 34-41, 35-04, 



17-39, 18' 
23-03, 23 
43-52, 45 
48-26, 49 
51-26, 59 
72-49, 73 



•27, 18-28, 
•25, 23-39, 
■34, 47-48, 
■24, 50-48, 
■07, 59-08, 
■01, 73-02, 



18-30, 18-32, 
32-07, 32-08, 
48-01, 48-03, 
51-01, 51-03, 
60-42, 60-44, 
73-04, 73-05 



CL=1 LIBNUM=6 

14-10, 14-11, 14-22 
CL=1 LIBNUM=6 



69-18 



38-22, 68-44 
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BOS 






: 



PATCH HISTORY 


VALUE T 


NAME 


ITST' T 


RMK INITSTO 


' LENGTH OF 




BLOCK' T 


RMK_L£NGTH 


' MTC MESSAG 




E IS BEING S 




ENT* T 


RMK_MTCIO 


• LEAVE THE 




MCHTR INCL 




UDING PARITY'T 


RMK_NOLDTR 


■ OFLSTINIT= 




MEANS ENTR 




Y POINT WAS 




WPST' T 


RMK OFLSTINI 




T 


' SPECIAL 10 




,MTC RESPONS 




E SHOULD NOT 




BE TREATED 




AS AN ERROR 




T 


RMK SPLIO 


4 R 


RWO 


4 R 


RH1 


R 


RO 






0000123 A 


ROXF 


0000123 A 


ROXT 


1 R 


R1 



DEF/REF ATTRIBUTES AND REFERENCES 



0:40:27 2/06/81 **** 
CSYSUB W770 



12 


R 


R10 


13 


R 


R11 


14 


R 


R12 


15 


R 


R13 


16 


R 


R14 


17 


R 


R15 


2 


R 


R2 



0000126 A R2XF 
0000126 A R2XT 



H=1 S 
M«1 S 
LIBNUM= 
15-48, 
19-31, 
28-14, 
35-31, 
53-12, 
66-11, 
LIBNUM= 
LIBNUM 
LIBNUM= 
16-01, 
32-04, 
61-01, 
73-18, 
LIBNUM= 
LIBNUM 
LIBNUM= 
LIBNUM= 
LIBNUM= 
LIBNUM' 
LIBNUM 
23-33, 
39-30, 
44-06, 
66-10, 
LIBNUM= 
LIBNUM 



4 N=0 

5 N=0 
3 

15-49, 
19-36, 
29-29, 
35-32, 
55-09, 
67-23, 

=6 

9 
16-08, 
34-39, 
64-22, 
73-19 

3 

3 

3 

•3 

■3 

<3 

■3 
23-41, 
39-32, 
48-26, 
66-11, 

=6 

4 



CL=1 
CL=1 
12-07, 
16-01, 
19-37, 
29-35, 
36-08, 
56-30, 
67-29, 
38-26, 
58-38 
8-08, 
17-33, 
34-49, 
64-24, 

28-15, 
26-45, 

8-11, 
19-42, 
19-31, 
19-43, 

8-14, 
23-42, 
39-34, 
51-26, 
67-36, 
22-47, 
25-04 



LIBNUM«=6 
LIBNUM=6 



12-15, 12- 
16-04, 17 
19-42, 19 
29-40, " 
36-10, 
56-36, 
67-35, 



31 
38- 
38- 
. 70- 
40-24, 56- 

11-47, 12- 
18-28, 22- 
43-42, 45' 
64-26, 64- 



38-22, 68-44 
38-22, 68-44 
17, 13-31, 13-36, 
25, 17-30, 17-35, 
43, 19-48, 19-49, 
42, 32-04, 32-05, 
22, 40-19, 45-31, 
41, 58-45, 59-07, 
■42, 73-01, 73-19 
•45 

•07, 12-12, 12-H, 

■35, 23-24, 24-40, 

•32, 47-40, 47-41, 

■30, 65-50, 67-39, 



34-23, 
27-02, 
19-30, 
19-49, 
19-36, 
19-48, 
12-04, 
25-05, 
39-40, 
58-23, 
67-37, 
25-08, 



34-37, 

48-03, 

19-37, 

47-48, 

29-42, 

29-46, 

12-10, 

29-37, 

39-42, 

58-29, 

67-46 

40-38 



35-12, 35-33, 
51-03 

48-01, 51-01 
50-48 

30-02, 30-08, 
30-11, 30-12, 
12-12, 15-44, 
29-39, 29-43, 
40-15, 40-18, 
58-43, 60-32, 



13-39, 13-43, 13-46, 13-49, 14-11, 14-12, 

17-39, 18-21, 18-26, 18-32, 18-35, 19-30, 

22-34^ 23-23, 24-39, 27-33, 27-34, 28-13, 

33-40^ 33-43, 33-46, 34-02, 34-13, 34-18, 

47-40, 49-23, 49-24, 49-26, 50-40, 52-46, 

61-01' 62-49, 64-25, 64-26, 64-l>9, 64-30, 



12-15, 12-16, 12-17, 12-19, 15-29, 15-36, 

26-45' 27-02, 28-15, 30-07, 30-09, 30-12, 

47-42' 49-23^ 49-24, 50-40, 50-41, 50-42, 

67-45^ 70-41 ^ 70-42' 70-43, 73-02, 73-17, 

48-05, 51-05 



30-09, 36-04, 36-05, 36-10, 36-26, 44-03 

32-02, 32-06, 36-06 .. - _ 

16-06, 17-32, 17-34, 17-36, 22-26, 22-40, 

29-49, 30-02, 31-32, 31-38, 32-09, 34-46, 

40-19, 40-31, 40-34, 44-03, 44-04, 44-05, 

60-33, 60-41, 60-42, 62-32, 63-03, 65-48, 
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m 



C05 






PATCH HISTORY 
VALUE T NAME 



0:40:27 



2/06/81 **** 



DEF/REF ATTRIBUTES AND REFERENCES 



3 R 


R3 




LIBNUM*3 




12-03, 


12-09, 


12-10, 


15-46, 


15-49, 


16-07, 


16-08, 


22-25, 


» 






22-37, 22-42. 


22-43, 


22-44, 


23-25, 


23-33/ 


23-39, 


23-40, 


24-31, 


24-32, 








32-03, 32- 


■05, 


34-48, 


39-33, 


40-16, 


40-32, 


48-19, 


51-19, 


58-24, 


58-26, 








62-45, 62- 


■47, 


62-49, 


63-04, 


65-49, 


67-38, 


67-47, 


73-09, 


73-11, 


73-13, 


4 R 


R4 




LIBNUM=3 




8-02, 


12-01, 


12-18, 


22-04, 


22-17, 


22-24, 


22-39, 


22-40, 








25-09, 34-19, 


34-20, 


34-21, 


34-40, 


34-41, 


35-10, 


35-36, 


35-47, 


35-48, 








36-31, 39-34, 


40-15, 


40-31, 


43-42, 


44-33, 


48-17, 


51-17, 


62-34, 


62-45, 








67-47, 73-09, 


73-11 
















5 R 


R5 




LIBNUM=3 
51-15 




8-05, 


11-47, 


12-19, 


39-33, 


40-16, 


40-32, 


41-24, 


42-25, 


6 R 


R6 




LIBNUM=3 




23-42, 


35-48, 


36-28, 


36-29, 


43-45, 


43-46, 


44-35, 


44-36, 


7 R 


R7 




LIBNUM=3 




48-11, 


51-11 














10 R 


R8 




LIBNUM=3 




48-09, 


51-09 














11 R 


R9 




LIBNUM=3 




28-14, 


34-40, 


34-41, 


34-48, 


35-04, 


48-07, 


51-07 




0000151 A 


R9XT 




LIBNUM=6 




37-01 
















CTVTAB V 


SXMCH 




LIBNUM=12 




66-13 
















14 P 


SXMCHX XCSYS 
UB 




LIBNUM=12 




















CTVTAB V 


SXMIO 




LIBNUM=12 




55-06, 


55-25 














14 P 


SXMIOX XCSYS 
UB 




LI8NUM=12 




















0000305 A 


SARIXT 




LIBNUM=6 




67-23 
















0111140 L 


SBUMCH 


60-29 


4-42 




















0015471 A 


SDRX 




LIBNUM=6 




68-40 
















0110525 L 


SELF 


35-32 






















0110516 L 


SENDINIT 


35-15 


35-05 




















0111041 L 


SENOIO 


54-33 


4-43 










1 










0111043 L 


SENDIOS 


54-37 


4-44 




















0111050 L 


SENDMIO 


54-45 


4-45 




















0111052 L 


SENDMIOS 


55-01 


4-46 




















0001316 A 


SERNO 051309 


78-15 






















0001312 A 


SERNO~064948 


78-02 












■ . 










0111025 L 


SIO 


52-42 


4-47, 54 


-41, 


55-19 
















0000036 A 


SIRXT 




LIBNUM=6 




69-07 














■ "■ .'• 


0111072 L 


SLDMCHB 


56-29 


4-48 




















0111075 L 


SLDHIRL 


56-35 


4-49 




















0110032 L 


SMALLER 


13-35 


13-32 




















0111077 L 


SMCH 


56-40 


5-01, 56 


-31 


















0111023 I 


SMIO 


52-38 


5-02 




















1 R 


SPLIO 


9-37 


W«1 S*1 


N=0 


CL«1 


54-34, 


54-38, 


54-46, 


55-02, 


55-35 






tR' T 


SPWORD 
























17 R 


SS 




LIBNUM=6 




58-25 
















17 R 


SS R 




LIBNUM=6 




58-42 
















0000216 A 


SS~RXT 




LIBNUM=6 




69-19, 


69-24 














15 R 


SS~S 




LIBNUM=6 




58-30 
















0000213 A 


SS~SXT 




LIBNUM=6 




24-30, 


68-39 














14 R 


STBLKR 


8-11 


9-51 




















0134330 A 


STMCHX 




LIBNUM=6 




56-49 
















0110677 L 


STMERGE 


43-41 


41-25, 42 


-26 



















CSYSUB 

22-26, 22- 
29-38, 29- 
58-27, 58- 
73-14, 73- 
22-41, 22- 
36-01, 36- 
62-47, 63- 



W770 

27, 22-36, 
46, 32-02, 
44, 62-33, 
15, 73-18 
42, 24-37, 
02, 36-04, 
05, 67-35, 



43-37, 44-07, 48-15, 
48-13, 51-13 
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P05 



PATCH HISTORY 
VALUE T NAME 



CBLM 

0110610 

TDATA 

0110235 

0110775 

0111006 

0111005 

0111004 

0111003 

0111021 

0111015 

0111014 

0111013 

0111012 

0111011 

0111010 

0111007 

0110135 

0110136 

0000000 

CTSD 

CTSD 

0110705 

3 

0110072 

0111026 

0111027 

0116774 



0111364 

0111375 

0111404 

0111373 

0111104 

0016730 

0111372 

•3A-CC COMMO 

N SYSTEM INT 

ERFACES' 

0600000 
0001312 
0001316 
0000521 
0000353 
0110465 
0111172 
0111404 

0000002 



DEF/REF ATTRIBUTES AND REFERENCES 



0:40:27 2/06/81 **** 
CSYSUB H77D 



STOPPSAU 

STPSTUPD 

STRUM 

STUCKINT 

ST2 V 

ST2"10 

ST2~11 

ST2Z12 

ST2 13 

ST2~2 

ST2~3 

ST2 4 

ST2"5 

ST2 6 

ST2 7 

ST2 8 

ST2~9 

SUB16 

SUB20 

SV REG 

SYSTATE 

SYSTIM 

TBLLOOP 

TEMP 

TENZERO 

TESTIO 

TESTIOLP 

TFAPCH2 

TI 

TIMCHK 

TIMOUT 

TIMOUTMERGE 

TIMOUTX 

TMCH 

TMCHX 

TMOUT 



TOPTTL 

TPATCH 

TR 011711 

TR 013874 

TR~11711 

TR"13874 

TRORG 

TRY614 

TRY688 

TTYAPP 

TTYO_ 



6-22 
38-19 

6-09 
23-10 
50-38 
51-04 
51-02 
50-49 
50-47 
51-25 
51-18 
51-16 
51-14 
51-12 
51-10 
51-08 
51-06 
18-19 
18-23 

6-34 
6-35 
43-50 
13-23 
15-27 
52-45 
53-01 
1-42 

70-39 
72-44 
73-06 
72-39 
58-21 

70-48 



38-32 

5-03 
29-37, 35-47 
22-15 

5-16 

5-12 

5-13 

5-14 

5-15 

5-04, 51-20 

5-05 

5-06 

5-0/ 

5-08 

5-09 

5-10 

5-11 

5-17 

5-18 

59-07, 60-32 

70-41, 73-17 

44-33 

13-39, 13-46, 13-49 

5-19, 11-46 

5-20, 52-40 
53-12 



UBNUM=6 

5-21 

5-22 

72-42 

5-23 

39-44 

LIBNUM=6 

70-44 



62-44, 62-46, 73-08, 73-10 



58-36 



1-44 
78-02 
78-15 
34-01 
23-13 
23-13 
62-44 
73-08 



34-25 

23-23, 24-08, 24-34 

24-08, 24-34, 34-25 

62-48 

73-12 



LIBNUM=10 



23-49, 24-01 
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,^^^w ' 



JS1 



PATCH HISTORY 










0:40:27 2/06/81 **** 


VALUE T 


NAME 


DEF/REF 


ATTRIBUTES 


AND REFERENCES 


CSYSUB W77D 


0000004 A 


mo DEC 




LIBNUM=10 




23-49 




0000006 A 


TTYO L X 




LIBNUM=10 




74-30, 74-31 




0000000 A 


TTYO WRO 




LIBNUM«10 




74-30 




0000002 A 


TTYOCNT 


24-02 


74-32 








U 


TTYTBL 












011 00S6 L 


UNITS 


14-09 










■ 0110273 I 


UNLODIOC 


26-34 


5-24 








0110622 L 


UNLOOMCH 


39-26 


5-25 








0110*13 L 


UNWPMERGE 


31-39 


31-33 








0110406 L 


UNWPOST 


31-29 


5-26 








0110411 L 


UNWPST 


31-35 


5-27 








0110667 L 


UPD OTS 


41-21 


5-28 








0110715 L 


UPDATELP 


44-12 


41-24 








0110453 I 


WPOST 


34-10 


5-30 








0110451 L 


WPST 


33-45 


5-29 








0110531 L 


WPSTERR 


35-35 


35-03 






. 


0110551 L 


WPSTLOOP 


36-03 


36-31 








0110456 L 


WPSTMERGE 


34-15 


33-41, 33- 


■44, 


33-47, 34-03 




TDATA V 


WPTBL 


6-11 


30-07, 36- 


■08 






R 
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45-37, 45- 


■45, 
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0110735 I 
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0000322 A 
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16-06 
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0145330 A 
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0026750 A 
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ZOPFX 




LIBNUM=6 
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0110076 L 


ZTMER6E 


15-40 


15-30 
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ZTS ENTRY 
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43-37 
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1-09 
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